C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM COND
      INTEGER*4 V
      V=2
C single statement IF
      IF(V.GT.1) WRITE(*,*) 'V > 1'
C block statement IF ELSE
      IF(V.GT.1) THEN
        WRITE(*,*) 'V > 1'
      ELSE
        WRITE(*,*) 'V <= 1'
      ENDIF
C arithmentic IF
      IF(V) 100,200,300
100   WRITE(*,*) 'V < 0'
      GOTO 400
200   WRITE(*,*) 'V = 0'
      GOTO 400
300   WRITE(*,*) 'V > 0'
400   CONTINUE
C  computed GOTO
      GOTO (500,600,700,800) V
500   WRITE(*,*) 'V = 1'
      GOTO 900
600   WRITE(*,*) 'V = 2'
      GOTO 900
700   WRITE(*,*) 'V = 3'
      GOTO 900
800   WRITE(*,*) 'V = 4'
      GOTO 900
900   CONTINUE
      END