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