fortran读数据 数组越界找不到原因

minaaaaaaa

程序如下
program main
implicit none
integer m,flag
parameter(m=18000)

integer i,j
character*12 a(m)
character*10 b(m)
real(kind=8) c(m),d(m),e(m),f(m),g(m),h(m),k(m)
open(1,file='e:\rr\012071430.txt',iostat=flag,position='rewind',action='read')
  i=1
  do while(flag==0)
   read(1,*) a(i),b(i),c(i),d(i),e(i),f(i),g(i),h(i),k(i)
    i=i+1
  end do
print *,a(1)
print *,c(1)
close(1)
end
中读数出错end of file during read
数据格式txt

xo2001

感觉是判断的位置有问题，flag==0应该是判断上一次读取是否成功，而不是判断这一次读取是否成功我觉得...这一句错误的时候，那么就挂了
要不要试试这个，以前百度到的一个，不知道能不能用
read (1,*,iostat=valstat) a
if (valstat < 0) exit

xo2001

靠，真穷，把我的一金钱还给我~