This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/78670] [F03] Incorrect file position with namelist read under DTIO
- From: "jvdelisle at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 29 Mar 2017 21:38:17 +0000
- Subject: [Bug fortran/78670] [F03] Incorrect file position with namelist read under DTIO
- Auto-submitted: auto-generated
- References: <bug-78670-4@http.gcc.gnu.org/bugzilla/>
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 <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.
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