gcc/testsuite/g77.dg/pr9258.f

   1 C Test case for PR/9258
   2 C Origin: kmccarty@princeton.edu
   3 C
   4 C { dg-do compile }
   5       SUBROUTINE FOO (B)
   6
   7   10  CALL BAR (A)
   8       ASSIGN 20 TO M
   9       IF (100.LT.A) GOTO 10
  10       GOTO 40
  11 C
  12   20  IF (B.LT.ABS(A)) GOTO 10
  13       ASSIGN 30 TO M
  14       GOTO 40
  15 C
  16   30  ASSIGN 10 TO M
  17   40  GOTO M,(10,20,30)
  18       END