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

[craig@jcb-sc.com]

Committed.

        tq vm, (burley)


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.

*** 970625-2.f.~1~	Wed Jun 25 06:00:08 1997
--- 970625-2.f	Sun Mar  7 21:28:36 1999
***************
*** 34,38 ****
        LOGICAL ELSE IF
        INTEGER REAL, GO TO PROGRAM, WHILE
!       DATA IF,REAL,END DO , WHILE /2,6,7,1/
        DO THEN=1, END DO, WHILE
           CALL = END DO - IF
--- 34,39 ----
        LOGICAL ELSE IF
        INTEGER REAL, GO TO PROGRAM, WHILE
!       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
***************
*** 45,49 ****
           END IF
        END DO
!       WRITE (*,*) WHILE*REAL*THEN
        END ! DO
        SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)
--- 46,51 ----
           END IF
        END DO
!  10   FORMAT(I2/I2) = WHILE*REAL*THEN
!       IF (FORMAT(I2) .NE. FORMAT(I2+I2)) CALL ABORT
        END ! DO
        SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)