This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Committed] PR fortran/85314 -- Remove dead code.
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Sun, 16 Dec 2018 18:27:17 -0800
- Subject: [Committed] PR fortran/85314 -- Remove dead code.
- Reply-to: sgk at troutmask dot apl dot washington dot edu
Committed as obvous.
2018-12-16 Steven G. Kargl <kargl@gcc.gnu.org>
* resolve.c (resolve_transfer): Remove dead code.
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 267190)
+++ gcc/fortran/resolve.c (working copy)
@@ -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))
--
Steve