      $TRACEON
      DO 100 I=1,5
      CALL SAM (&1,&2,&3,I)
      WRITE (4,*) 'FELL THROUGH'
      STOP 7
   1  WRITE (4,*) 'AT 1'
      GO TO 100
   2  WRITE (4,*) 'AT 2'
      GO TO 100
   3  WRITE (4,*) 'AT 3'
 100  CONTINUE
      STOP
      END
      SUBROUTINE SAM (*,*,*,I)
      A = 5.0
      RETURN I
      END
