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