program main
      implicit none
      real,allocatable :: a(:)
      integer n,error,i
 
      open(10,file="m.txt")
 
      n=0

      do while(.true.)
       read(10,*,iostat=error)
       if(error/=0)then
      exit
      else
      n=n+1
      end if
      end do

      rewind(10)

      allocate(a(n))

       do i=1,n 
       read(10,*)a(i)
       write(*,*)a(i)

这个程序我运行的时候他一直只能读取文件中的第一列数据，怎么修改才能读取全部数据呢？