PROGRAM tulosta
  IMPLICIT NONE
  REAL, DIMENSION(5) :: a = 1

  WRITE (*,'("Taulukko a", 5G9.3)') a
  WRITE (*,'("Rivi ", 3G9.3)') a
END PROGRAM tulosta