diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-09-20 01:32:59 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-09-20 01:32:59 +0000 |
| commit | ad2840d5e45ae6bd85c380873c18dacecfa122fe (patch) | |
| tree | afb7cca8683c83a8681022a0663d92852f82f081 /libgfortran/io/write.c | |
| parent | ea944b4356f852d8ee8d2654fdc7a48b2437655c (diff) | |
2017-09-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Backport from trunk
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:
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-7-branch@252992 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 8dbbb0912e3c..c9aad1500900 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -2248,11 +2248,6 @@ nml_write_obj (st_parameter_dt *dtp, namelist_info *obj, index_type offset, child_iomsg_len = IOMSG_LEN; } - /* If writing to an internal unit, stash it to allow - the child procedure to access it. */ - if (is_internal_unit (dtp)) - stash_internal_unit (dtp); - /* Call the user defined formatted WRITE procedure. */ dtp->u.p.current_unit->child_dtio++; if (obj->type == BT_DERIVED) |