C Test case for PR fortran/9258
C Origin: kmccarty@Princeton.EDU
C
C { dg-do compile }
      SUBROUTINE FOO (B)

 10   CALL BAR(A)
      ASSIGN 20 TO M
      IF(100.LT.A) GOTO 10
      GOTO 40
C
 20   IF(B.LT.ABS(A)) GOTO 10
      ASSIGN 30 TO M
      GOTO 40
C
 30   ASSIGN 10 TO M
 40   GOTO M,(10,20,30)
      END