re PR fortran/48298 ([F03] User-Defined Derived-Type IO (DTIO))
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Tue, 18 Oct 2016 04:14:25 +0000 (04:14 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Tue, 18 Oct 2016 04:14:25 +0000 (04:14 +0000)
commitc680ada5f527a33ea7c793704019fb46c795d5f4
tree1999f935b9407f3f6f2dea1eb9f1e478784747f9
parentb78027d1a3f9a8fdf3386e24dcfd6679006dd154
re PR fortran/48298 ([F03] User-Defined Derived-Type IO (DTIO))

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.

From-SVN: r241294
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/dtio_17.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/io.h
libgfortran/io/read.c
libgfortran/io/transfer.c