Revert accidental change.

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

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8cbcac9..e31ecbd 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -5741,19 +5741,6 @@ resolve_fl_derived (gfc_symbol *sym)
       sym->ns->derived_types = dt_list;
     }
 
-  /* Add derived type to the derived type list.  */
-  for (dt_list = sym->ns->derived_types; dt_list; dt_list = dt_list->next)
-    if (sym == dt_list->derived)
-      break;
-
-  if (dt_list == NULL)
-    {
-      dt_list = gfc_get_dt_list ();
-      dt_list->next = sym->ns->derived_types;
-      dt_list->derived = sym;
-      sym->ns->derived_types = dt_list;
-    }
-
   return SUCCESS;
 }