diff options
Diffstat (limited to 'gcc-4.8/gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc-4.8/gcc/fortran/trans-io.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc-4.8/gcc/fortran/trans-io.c b/gcc-4.8/gcc/fortran/trans-io.c index 9394810f0..afb0354d7 100644 --- a/gcc-4.8/gcc/fortran/trans-io.c +++ b/gcc-4.8/gcc/fortran/trans-io.c @@ -2158,6 +2158,12 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) expr = build_fold_indirect_ref_loc (input_location, expr); + /* Make sure that the derived type has been built. An external + function, if only referenced in an io statement requires this + check (see PR58771). */ + if (ts->u.derived->backend_decl == NULL_TREE) + tmp = gfc_typenode_for_spec (ts); + for (c = ts->u.derived->components; c; c = c->next) { field = c->backend_decl; |