[Bug libfortran/71123] New: Namelist read failure on Windows

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71123

            Bug ID: 71123
           Summary: Namelist read failure on Windows
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jvdelisle at gcc dot gnu.org
  Target Milestone: ---

Posted on the gfortran list.

The following program works fine under Linux but fails under Windows.

      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION SENID(30)
      NAMELIST /FITH/ SENID
      DO I=1,30
         SENID(I) = I
      ENDDO
      OPEN(UNIT=7,FILE='TEST.OUT',FORM='FORMATTED',
     *         STATUS='NEW',ACTION='READWRITE')
      WRITE(7,NML=FITH)
      REWIND(7)
      READ(7,NML=FITH)
      END