https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78670
--- Comment #8 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- Author: jvdelisle Date: Wed Mar 29 21:37:45 2017 New Revision: 246576 URL: https://gcc.gnu.org/viewcvs?rev=246576&root=gcc&view=rev Log: 2017-03-29 Jerry DeLisle <jvdeli...@gcc.gnu.org> PR libgfortran/78670 * io/list_read.c (nml_get_obj_data): Delete code which calls the child read procedure. (nml_read_obj): Insert the code which calls the child procedure. Don't need to touch nodes if using dtio since parent will not be traversing the components. PR libgfortran/78670 * gfortran.dg/dtio_25.f90: Use 'a1' format when trying to read a character of length 1. Update test for success. * gfortran.dg/dtio_28.f03: New test. * gfortran.dg/dtio_4.f90: Update to open test file with status = 'scratch' to delete the file when done. Added: trunk/gcc/testsuite/gfortran.dg/dtio_28.f03 Modified: trunk/gcc/testsuite/ChangeLog trunk/gcc/testsuite/gfortran.dg/dtio_25.f90 trunk/gcc/testsuite/gfortran.dg/dtio_4.f90 trunk/libgfortran/ChangeLog trunk/libgfortran/io/list_read.c