From 0c51bf96b4b62689d53ce4cb12006eef9696af9b Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 30 Oct 2017 19:33:12 +0000 Subject: resolve.c (resolve_transfer): Set derived to correct symbol for BT_CLASS. 2017-10-30 Steven G. Kargl * resolve.c (resolve_transfer): Set derived to correct symbol for BT_CLASS. 2017-10-30 Steven G. Kargl * gfortran.dg/dtio_13.f90: Remove TODO comment and dg-error test. From-SVN: r254241 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 67ebf7b..0d4a873 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2017-10-30 Steven G. Kargl + + * resolve.c (resolve_transfer): Set derived to correct symbol for + BT_CLASS. + 2017-10-29 Jim Wilson * invoke.texi: Delete adb and sdb references. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5062bcb..104c02f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9181,7 +9181,7 @@ resolve_transfer (gfc_code *code) if (dt && dt->dt_io_kind->value.iokind != M_INQUIRE && (ts->type == BT_DERIVED || ts->type == BT_CLASS)) { - if (ts->type == BT_DERIVED) + if (ts->type == BT_DERIVED || ts->type == BT_CLASS) derived = ts->u.derived; else derived = ts->u.derived->components->ts.u.derived; -- cgit v1.1