Fortran 正在读取超出 endfile 记录的内容

Question

我正在尝试从文件中读取一些数据，并且结束文件记录检测对于停止读取很重要。但是，根据用于读取数据的数组的数组维度，我无法正确检测到结束文件记录并且我的 Fortran 程序停止。
该程序如下:

!integer, dimension(3) :: x                      ! line 1.1
!integer, dimension(3,10) :: x                   ! line 1.2
integer, dimension(10,3) ::                      ! line 1.3
integer :: status,i=1
character(len=100) :: error

open( 30, file='data.dat', status='old' )
do
  print *,i
  !read( 30, *, iostat=status, iomsg=error ) x          ! line 2.1
  !read( 30, *, iostat=status, iomsg=error ) x(:,i)     ! line 2.2
  read( 30, *, iostat=status, iomsg=error ) x(i,:)      ! line 2.3

  if ( status < 0 ) then        print *,'EOF'
    print *,'total of ',i-1,' lines read.'
    exit
  else if ( status > 0 ) then
    print *,'error cod: ',status
    print *,'error message: ', error
    stop
  else if ( status == 0 ) then
    print *,'reading ok.'
    i = i + 1
  end if
end do

使用“data.dat”文件:

10 20 30
30 40 50

当第 1.3 和 2.3 行被取消注释时，会出现上述错误:

error cod: 5008

error message: Read past ENDFILE record

但是，使用第 1.1 行和 2.1 行，或 1.2 行和 2.2 行，程序可以工作，检测结束文件记录。
因此，我想帮助理解为什么我不能使用第 1.3 行和第 2.3 行正确读取此文件，因为我为读取命令提供了正确数量的数组元素。
我正在使用 gfortran 编译器，版本 6.3.0。
编辑:更简单的例子
以下会产生 5008“读取过去的 ENDFILE 记录”错误:

implicit none
integer x(2,2),s
open(20,file='noexist')
read(20,*,iostat=s)x
write(*,*)s
end

如果我们制作 x标量或一维数组(任何大小)我们得到预期的 -1 EOF 标志。文件是否实际不存在或为空都没有关系。如果文件包含一些但不够的数据，则很难理解您可能获得的返回值。

Answer 1

我不确定我是否正确表达自己，但这与 fortran 读取和存储二维数组的方式有关。当您使用此符号时:x(:,i) ，专栏i实际上是在线扩展的，并且使用这一行代码读取项目。在另一种情况下，x(i,:)使用，行 i读起来好像你调用 read多次。
如果您想坚持特定的形状和大小，您可以使用隐含的循环。例如你可以使用类似的东西:read( 30, *, iostat=status, iomsg=error ) (x(i,j), j=1,3)
在任何情况下，您都应该检查您的数据是否正确存储在变量 x 中(至少如预期的那样)。 .