[Koshkin]

Or, with proper formatting:

  C    THE CALLEE
       SUBROUTINE X(I)
         GO TO I
       END
  C    THE CALLER 
       ASSIGN 10 TO J
       CALL X(J)
  C    THIS IS NEVER REACHED 
       STOP 
   10  WRITE(3,100)
   100 FORMAT(8H THIS IS)
       END