diff options
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) |