[Bug fortran/38291] Rejects I/O with POS= if FMT=*

["jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #9 from jvdelisle at gcc dot gnu dot org  2008-12-06 04:15 -------
Subject: Bug 38291

Author: jvdelisle
Date: Sat Dec  6 04:13:34 2008
New Revision: 142515

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

        PR fortran/38291
        * io.c (match_dt_element): Use dt->pos in matcher.
        (gfc_free_dt): Free dt->pos after use.
        (gfc_resolve_dt): Use dt->pos in resolution of stream position tag.

2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libfortran/38291
        * io/transfer.c (data_transfer_init): Add checks for POS= valid range.
        Add check for unit opened with ACCESS="stream". Flush and seek if
        current stream position does not match. Check ENDFILE on read.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/io.c
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/transfer.c


-- 


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