From 35cc02b5c80ac6738c1a3362a822e3d7e4d0c587 Mon Sep 17 00:00:00 2001 From: aldyh Date: Tue, 5 Dec 2006 17:26:05 +0000 Subject: Merge gimple-tuples-branch into mainline. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119546 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/resolve.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index e31ecbd5909..8cbcac93dab 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5741,6 +5741,19 @@ 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; } -- cgit v1.2.3