[Bug fortran/27634] New: formatted reading/writing: real format without dot

[manfred99 at gmx dot ch]

real      val
      character str*6
      open(1,FILE="tmp.dat")
      read(1,'(a6,f4)') str,val
      print*,str,val
      end

gfortran tells me as follows:
      read(1,'(a6,f4)') str,val
                                                                       1
Warning: Period required in format string at (1)

# ./a.out
At line 4 of file read_gfc_test.f
Fortran runtime error: Period required in format
(a6,f4)
      ^

At compile time, gfortran issues only a warning, although it aborts
unconditionally at runtime, which comes as a bad surprise.
Either gfortran should abort at compile time, or it should support
this syntax ("f4" as an equivalent of "f4.0").
Same issue also for writing.

Support would be probably easy (not regtested, but works for me):
At Line 726 of libgfortran/io/format.c:
      if (t != FMT_PERIOD)
        {
          /* We treat missing decimal descriptor as 0 !! */
          fmt->saved_token = t;
          tail->u.real.d = 0;
          break;
        }

This is a regression vs. g77.


-- 
           Summary: formatted reading/writing: real format without dot
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: manfred99 at gmx dot ch


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