Fortran READ 到派生类型不适用于 gfortran（Fortran 运行时错误：文件结尾）

Question

我在 Fortran 中有一个派生类型，我需要将文本文件中的值读入该类型。我的问题是我的代码在 Intel Fortran 编译器和 NAG Fortran 编译器上运行良好，但 GFortran 退出时出现错误。最小的工作示例如下。

Module my_mod
  Type T
    Real :: a
  End Type T

  Interface Read (Formatted)
    Module Procedure read_T
  End Interface
Contains
  Subroutine read_T(var, unit, iotype, v_list, iostat, iomsg)
    Class (T), Intent (Inout) :: var
    Integer, Intent (In) :: unit
    Character (*), Intent (In) :: iotype
    Integer, Intent (In) :: v_list(:)
    Integer, Intent (Out) :: iostat
    Character (*), Intent (Inout) :: iomsg

    Read (unit, *, iostat=iostat, iomsg=iomsg) var%a
  End Subroutine
End Module my_mod

Program main
  Use my_mod
  Implicit None
  Type(T) :: x
  Type(T) :: y

  Open(unit=20, file='data.txt', action='read')
  Read(20, *) x        ! Here GFortran fails because it somehow reaches EOF
  Write(*, *) x
  Read(20, *) y
  Write(*, *) y
End Program main

使用 data.txt 文件：

1.0
2.0

使用 GFortran 我收到错误

At line 30 of file test.f90 (unit = 20, file = 'data.txt')
Fortran runtime error: End of file

Error termination. Backtrace:
#0  0x7f27a76fef2f in finalize_transfer
        at ../.././libgfortran/io/transfer.c:4175
#1  0x400aca in ???
#2  0x400b86 in ???
#3  0x7f27a69a8504 in ???
#4  0x4007e8 in ???
#5  0xffffffffffffffff in ???

有效的一件事是替换 Read 语句，如下所示

Read(20, fmt='(DT)', advance='no') x        ! Works with all compilers :)
Write(*, *) x
Read(20, fmt='(DT)', advance='no') y        ! Works with all compilers :)
Write(*, *) y

所以我的问题..是否有可能在没有 fmt='(DT) 的情况下在 GFortran 中获得相同的行为'，提前='否'？

谁的行为是正确的？ GFortran 还是英特尔 Fortran 和 NAG Fortran？

感谢您的帮助，

西蒙