I = 10
      GOTO (10,20) I
      GOTO (30,40) I - 9
 10   PRINT *, 'f041 failed'
  20  PRINT *, 'f041 failed'
 30   PRINT *, 'f041 passed'
      stop
 40   PRINT *, 'f041 failed'
      END