From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Mon, 17 Dec 2018 02:19:58 +0000 (+0000)
Subject: re PR fortran/85314 (gcc/fortran/resolve.c:9222: unreachable code ?)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fb2974dcf53f960231e8c4bc2b294f8900b3beef;p=gcc.git

re PR fortran/85314 (gcc/fortran/resolve.c:9222: unreachable code ?)

2018-12-16  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/85314
	* resolve.c (resolve_transfer): Remove dead code.

From-SVN: r267196
---

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  <kargl@gcc.gnu.org>
+
+	* resolve.c (resolve_transfer): Remove dead code.
+
 2018-12-16  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	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))