From c28f06a931f1f0999427a7dfdaa410bcb83a86f3 Mon Sep 17 00:00:00 2001
From: aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 5 Dec 2006 17:53:35 +0000
Subject: [PATCH] Revert accidental change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119547 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/fortran/resolve.c | 13 -------------
1 file changed, 13 deletions(-)
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8cbcac93dab2..e31ecbd5909e 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;
}
--
GitLab