1C Test case for PR/9258
2C Origin: kmccarty@princeton.edu
3C
4C { 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
11C
12  20  IF (B.LT.ABS(A)) GOTO 10
13      ASSIGN 30 TO M
14      GOTO 40
15C
16  30  ASSIGN 10 TO M
17  40  GOTO M,(10,20,30)
18      END
19