improve testiness

From-SVN: r25631

gcc/testsuite/ChangeLog

+1999-03-08  Craig Burley  <craig@jcb-sc.com>
+
+	* g77.f-torture/execute/970625-2.f: call ABORT if final
+	result is not correct, instead of just printing it.
+	Add this checking via newly introduced obfuscation, to
+	trip up buggy front ends.
+
 1999-03-07  Craig Burley  <craig@jcb-sc.com>
 
 	* g77.f-torture/compile/960317-1.f: Moved from being

gcc/testsuite/g77.f-torture/execute/970625-2.f

@@ -33,7 +33,8 @@
       PROGRAM SUBROUTINE
       LOGICAL ELSE IF
       INTEGER REAL, GO TO PROGRAM, WHILE
-      DATA IF,REAL,END DO , WHILE /2,6,7,1/
+      REAL FORMAT(2)
+      DATA IF,REAL,END DO,WHILE,FORMAT(2),I2/2,6,7,1,112.,1/
       DO THEN=1, END DO, WHILE
          CALL = END DO - IF
          PROGRAM = THEN - IF
@@ -44,7 +45,8 @@
             REAL = THEN + END DO
          END IF
       END DO
-      WRITE (*,*) WHILE*REAL*THEN
+ 10   FORMAT(I2/I2) = WHILE*REAL*THEN
+      IF (FORMAT(I2) .NE. FORMAT(I2+I2)) CALL ABORT
       END ! DO
       SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)
       LOGICAL REAL