[Bug fortran/78881] [F03] reading from string with DTIO procedure does not work properly

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78881

--- Comment #13 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sat Mar 25 18:48:01 2017
New Revision: 246478

URL: https://gcc.gnu.org/viewcvs?rev=246478&root=gcc&view=rev
Log:
2017-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/78881
        * io/io.h (st_parameter_dt): Rename unused component last_char to
        child_saved_iostat. Move comment to gfc_unit.
        * io/list_read.c (list_formatted_read_scalar): After call to
        child READ procedure, save the returned iostat value for later
        check. (finish_list_read): Only finish READ if child_saved_iostat
        was OK.
        * io/transfer.c (read_sf_internal): If there is a saved character
        in last character, seek back one. Add a new check for EOR
        condition. (read_sf): If there is a saved character
        in last character, seek back one. (formatted_transfer_scalar_read):
        Initialize last character before invoking child procedure.
        (data_transfer_init): If child dtio, set advance
        status to nonadvancing. Move update of size and check for EOR
        condition to before child dtio return.

        * gfortran.dg/dtio_26.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/dtio_26.f03
Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/io.h
    trunk/libgfortran/io/list_read.c
    trunk/libgfortran/io/transfer.c