PROGRAM tulosta
  IMPLICIT NONE
  INTEGER :: n = 34
  CHARACTER(LEN=*), PARAMETER :: form = '(I5)'

  WRITE (*, '(I5)') n   ! Merkkivakio muotoilukoodina
  WRITE (*, form) n     ! Merkkijonomuuttuja (tässä vakio)
  WRITE (*, 30) n       ! FORMAT-lauseen käyttö
30 FORMAT (I5)
END PROGRAM tulosta