[Bug fortran/48298] [F03] User-Defined Derived-Type IO (DTIO)

[jvdelisle at gcc dot gnu.org]

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

--- Comment #28 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Tue Oct 18 04:14:25 2016
New Revision: 241294

URL: https://gcc.gnu.org/viewcvs?rev=241294&root=gcc&view=rev
Log:
2016-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/48298
        * io/io.h: Move size_used from dtp to unit structure. Add bool
        has_size to unit structure.
        * read.c (read_x): Use has_size and size_used.
        * transfer.c (read_sf_internal,read_sf,read_block_form,
        read_block_form4): Likewise.
        (data_transfer_init): If parent, initialize the size variables.
        (finalize_transfer): Set the size variable using size_used in
        gfc_unit. (write_block): Delete bogus/dead code.

        * gfortran.dg/dtio_17.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/dtio_17.f90
Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/io.h
    trunk/libgfortran/io/read.c
    trunk/libgfortran/io/transfer.c