improve testiness

From-SVN: r25631

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index af895fa27aeca356fca3dc29c4c9a2e5e4bc8b84..fbf7b94534ebf39147a600313c45fbcca4c31cd7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+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

diff --git a/gcc/testsuite/g77.f-torture/execute/970625-2.f b/gcc/testsuite/g77.f-torture/execute/970625-2.f
index d8922f2d3c882b78b4b7df2e67e188eca81e8297..3ef6f46cb7947571ae73475bfcaa58ce5e6e1c10 100644 (file)
--- a/gcc/testsuite/g77.f-torture/execute/970625-2.f
+++ b/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