C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM ASGNGOTO
      IMPLICIT NONE
      INTEGER*4 MYJUMP
      ASSIGN 100 TO MYJUMP
      GOTO MYJUMP
      WRITE(*,*) 'You will not see this'
      GOTO 200
100   WRITE(*,*) 'OK'
200   CONTINUE
      END