OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improve testiness

Browse Source 
From-SVN: r25631
This commit is contained in:
Craig Burley 1999-03-08 00:14:12 +00:00 committed by Craig Burley
parent 3f18f777de
commit 7e0847f623
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -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

6
gcc/testsuite/g77.f-torture/execute/970625-2.f
View File

@ -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