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/list_read.c | |
| parent | adbfebe68eb0f236026adb817435ee0a20906b04 (diff) | |
Merge branches/gcc-7-branch rev 253626.
Change-Id: If635aa7dbff0d433569bcb961bd02d8e16b894bf
Diffstat (limited to 'libgfortran/io/list_read.c')
| -rw-r--r-- | libgfortran/io/list_read.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 943afb51c6a..6a05cfe4f22 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -3019,11 +3019,6 @@ nml_read_obj (st_parameter_dt *dtp, namelist_info *nl, index_type offset, child_iomsg_len = IOMSG_LEN; } - /* If reading from 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 READ procedure. */ dtp->u.p.current_unit->child_dtio++; dtio_ptr ((void *)&list_obj, &unit, iotype, &vlist, |