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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267196 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c25a45045d51ec249ce75e83588c374b10fe9728..88acec1f38a9bb0a4b765d89b37128db48fbe856 100644 (file)
--- 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 dd705ed1bbfebbe90289e5cfbec651c955bc09cc..fedf60ae770056604119f6a3e83aea9f7165a59b 100644 (file)
--- 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))