diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-03-08 00:14:12 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-03-07 19:14:12 -0500 |
| commit | 7e0847f623538528b97d40c3317b49856809a2df (patch) | |
| tree | 5015af06a0f7a641d68314426fbb085c138cb77a | |
| parent | 3f18f777dec3bd71ef7518b304d7d35f58395467 (diff) | |
| download | gcc-7e0847f623538528b97d40c3317b49856809a2df.zip gcc-7e0847f623538528b97d40c3317b49856809a2df.tar.gz gcc-7e0847f623538528b97d40c3317b49856809a2df.tar.bz2 | |
improve testiness
From-SVN: r25631
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/970625-2.f | 6 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index af895fa..fbf7b94 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 d8922f2..3ef6f46 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 |