diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-03-29 21:37:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-03-29 21:37:45 +0000 |
| commit | fdc54f39c14aa7fc3820853bf8deee8e02401a55 (patch) | |
| tree | 44ff4cdae71ae2f346b8b68f7ba425b6743cf859 /gcc/c | |
| parent | 533c0b69430beae5274a7f456e299afb16afc2f0 (diff) | |
| download | gcc-fdc54f39c14aa7fc3820853bf8deee8e02401a55.zip gcc-fdc54f39c14aa7fc3820853bf8deee8e02401a55.tar.gz gcc-fdc54f39c14aa7fc3820853bf8deee8e02401a55.tar.bz2 | |
re PR fortran/78670 ([F03] Incorrect file position with namelist read under DTIO)
2017-03-29 Jerry DeLisle <jvdelisle@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.
From-SVN: r246576
Diffstat (limited to 'gcc/c')
0 files changed, 0 insertions, 0 deletions