URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [pr9258.f] - Rev 816
Compare with Previous | Blame | View Log
C Test case for PR/9258 C Origin: kmccarty@princeton.edu C C { dg-do compile } SUBROUTINE FOO (B) 10 CALL BAR (A) ASSIGN 20 TO M !{ dg-warning "Obsolete: ASSIGN" "" } IF (100.LT.A) GOTO 10 GOTO 40 C 20 IF (B.LT.ABS(A)) GOTO 10 ASSIGN 30 TO M !{ dg-warning "Obsolete: ASSIGN" "" } GOTO 40 C 30 ASSIGN 10 TO M !{ dg-warning "Obsolete: ASSIGN" "" } 40 GOTO M,(10,20,30) !{ dg-warning "Obsolete: Assigned GOTO" "" } END