[Bug fortran/78387] OpenMP segfault/stack size exceeded writing to internal file

[jvdelisle at gcc dot gnu.org]

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

--- Comment #13 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Mon Aug 28 03:42:47 2017
New Revision: 251374

URL: https://gcc.gnu.org/viewcvs?rev=251374&root=gcc&view=rev
Log:
2017-08-27  Jerry DeLisle  <jvdeli...@gcc.gnu.org>

        PR libgfortran/78387
        * io/list_read.c (nml_read_obj): Remove use of stash.
        * io/transfer.c (st_read_done, st_write_done): Likewise.
        * io/unit.c (stash_internal_unit): Delete function.
        (get_unit): Remove use of stash.
        (init_units): Likewise.
        (close_units): Likewise.
        * io/write.c (nml_write_obj): Likewise:

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/list_read.c
    trunk/libgfortran/io/transfer.c
    trunk/libgfortran/io/unit.c
    trunk/libgfortran/io/write.c