[Bug fortran/33268] read ('(f3.3)'), a rejected due to the extra (...)

[jvdelisle at gcc dot gnu dot org]

------- Comment #11 from jvdelisle at gcc dot gnu dot org  2008-05-03 15:12 -------
Subject: Bug 33268

Author: jvdelisle
Date: Sat May  3 15:11:33 2008
New Revision: 134900

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=134900
Log:
2008-05-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/33268
        * gfortran.h: Add extra_comma pointer to gfc_dt structure. Add iokind
to
        gfc_expr value union. Add io_kind enum to here from io.c.
        * io.c (gfc_free_dt): Free extra_comma.
        (gfc_resolve_dt): If an extra comma was encountered and io_unit is type
        BT_CHARACTER, resolve to format_expr and set default unit.  Error if
        io_kind is M_WRITE. (match_io):  Match the extra comma and set new
        pointer, extra_comma.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/io.c


-- 


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