PROGRAM lue_taulukko
  IMPLICIT NONE
  REAL, ALLOCATABLE, DIMENSION(:) :: a
  INTEGER :: i, n
  READ (*, '(I2)', ADVANCE='NO') n
  ALLOCATE (a(n))
  READ (*,*) (a(i), i=1,n)
END PROGRAM lue_taulukko