https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78854
--- Comment #13 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- Author: jvdelisle Date: Sat Mar 11 14:49:57 2017 New Revision: 246070 URL: https://gcc.gnu.org/viewcvs?rev=246070&root=gcc&view=rev Log: 2017-03-11 Jerry DeLisle <jvdeli...@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. Added: trunk/gcc/testsuite/gfortran.dg/dtio_25.f90 Modified: trunk/gcc/testsuite/ChangeLog trunk/libgfortran/ChangeLog trunk/libgfortran/io/list_read.c trunk/libgfortran/io/transfer.c trunk/libgfortran/io/unit.c trunk/libgfortran/io/write.c