PROGRAM lue_taulukko
  IMPLICIT NONE
  REAL, ALLOCATABLE, DIMENSION(:) :: a
  INTEGER :: n
  OPEN (10, FILE='data.a')
  READ (10, *) n
  ALLOCATE (a(n))
  READ (10, *) a
  CLOSE (10)
END PROGRAM lue_taulukko