[Bug libfortran/23154] New: Bad floating point in formatted read

[jvdelisle at gcc dot gnu dot org]

The following test case results in a floating point read error.

      DOUBLE PRECISION XIN, YIN, ZIN, WIN, QIN
      CHARACTER*4 SID, RID, RID2, REN, IUP
      CHARACTER*5 A

      CHARACTER*132 COMLYN

      COMLYN = "            abcd efgh jklmn      1.2345.678     21.765  2.34
     &  3.45xxxxxxWXYZ"

      PRINT *, COMLYN
      READ(COMLYN,'(12X,A4,1X,A4,1X,A5,3X,3F8.3,F6.2,F6.2,6X,A4)'
     &           ) IUP,REN,A,XIN,YIN,ZIN,QIN,WIN,SID
      STOP
      end

Possibly related to NIST formatted I/O and pr22570

-- 
           Summary: Bad floating point in formatted read
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23154