gcc/testsuite/g77.f-torture/compile/20030115-1.c

   1       SUBROUTINE FOO (B)
   2
   3    10 CALL BAR(A)
   4       ASSIGN 20 TO M
   5       IF(100.LT.A) GOTO 10
   6       GOTO 40
   7 C
   8    20 IF(B.LT.ABS(A)) GOTO 10
   9       ASSIGN 30 TO M
  10       GOTO 40
  11 C
  12    30 ASSIGN 10 TO M
  13    40 GOTO M,(10,20,30)
  14       END