diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 3cdbf1f..216317a 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -2325,7 +2325,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, if (derived->attr.has_dtio_procs) arg2 = get_dtio_proc (ts, code, &dtio_sub); - if (dtio_sub != NULL) + if ((dtio_sub != NULL) && (last_dt != IOLENGTH)) { tree decl; decl = build_fold_indirect_ref_loc (input_location, |