diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 9394810..d60d15f 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -2026,20 +2026,8 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) && ts->u.derived != NULL && (ts->is_iso_c == 1 || ts->u.derived->ts.is_iso_c == 1)) { - /* C_PTR and C_FUNPTR have private components which means they can not - be printed. However, if -std=gnu and not -pedantic, allow - the component to be printed to help debugging. */ - if (gfc_notification_std (GFC_STD_GNU) != SILENT) - { - gfc_error_now ("Derived type '%s' at %L has PRIVATE components", - ts->u.derived->name, code != NULL ? &(code->loc) : - &gfc_current_locus); - return; - } - - ts->type = ts->u.derived->ts.type; - ts->kind = ts->u.derived->ts.kind; - ts->f90_type = ts->u.derived->ts.f90_type; + ts->type = BT_INTEGER; + ts->kind = gfc_index_integer_kind; } kind = ts->kind; |