diff options
author | Yvan Roux <yvan.roux@linaro.org> | 2017-10-11 15:02:32 +0200 |
---|---|---|
committer | Yvan Roux <yvan.roux@linaro.org> | 2017-10-11 15:02:32 +0200 |
commit | a1b8ee536a7ab5c8d96ca98894009937a8c01608 (patch) | |
tree | 98e0c2b04cf3e352ea36c2290336f83f05b55b64 /libgfortran/io/write.c | |
parent | adbfebe68eb0f236026adb817435ee0a20906b04 (diff) |
Merge branches/gcc-7-branch rev 253626.
Change-Id: If635aa7dbff0d433569bcb961bd02d8e16b894bf
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 8dbbb0912e3..c9aad150090 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) |