From fb2974dcf53f960231e8c4bc2b294f8900b3beef Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 17 Dec 2018 02:19:58 +0000 Subject: [PATCH] re PR fortran/85314 (gcc/fortran/resolve.c:9222: unreachable code ?) 2018-12-16 Steven G. Kargl PR fortran/85314 * resolve.c (resolve_transfer): Remove dead code. From-SVN: r267196 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/resolve.c | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c25a45045d5..88acec1f38a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2018-12-16 Steven G. Kargl + + * resolve.c (resolve_transfer): Remove dead code. + 2018-12-16 Steven G. Kargl PR fortran/88116 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index dd705ed1bbf..fedf60ae770 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9386,10 +9386,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 || ts->type == BT_CLASS) - derived = ts->u.derived; - else - derived = ts->u.derived->components->ts.u.derived; + derived = ts->u.derived; /* Determine when to use the formatted DTIO procedure. */ if (dt && (dt->format_expr || dt->format_label)) -- 2.30.2