[Bug fortran/78854] [F03] DTIO namelist output not working on internal unit

[jvdelisle at gcc dot gnu.org]

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  <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.

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