re PR fortran/78854 ([F03] DTIO namelist output not working on internal unit)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 11 Mar 2017 14:49:57 +0000 (14:49 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 11 Mar 2017 14:49:57 +0000 (14:49 +0000)
commitc08de9db47cea407e4399c987d2b8b9b6a6413ed
tree0c0816499c2d1669fe279e6c7c3afde3190d275d
parent85059a38cba2e84d0242f5d0b835ab95ad4b4965
re PR fortran/78854 ([F03] DTIO namelist output not working on internal unit)

2017-03-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libgfortran/78854
* io/list_read.c (nml_get_obj_data): Stash internal unit for
later use by child procedures.
* io/write.c (nml_write_obj): Likewise.
* io/tranfer.c (data_transfer_init): Minor whitespace.
* io/unit.c (set_internal_uit): Look for the stashed internal
unit and use it if found.

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

From-SVN: r246070
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/dtio_25.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/list_read.c
libgfortran/io/transfer.c
libgfortran/io/unit.c
libgfortran/io/write.c