diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8cbcac93dab20b8f85bc6a9156b961ca1d12cc48..e31ecbd5909e8f6cb3c2f88037f188bc9fb703d4 100644
--- 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;
 }