diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index af895fa27ae..fbf7b94534e 100644
--- 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 d8922f2d3c8..3ef6f46cb79 100644
--- 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