OSDN Git Service

2006-02-19 H.J. Lu <hongjiu.lu@intel.com>
authorhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 19 Feb 2006 18:03:52 +0000 (18:03 +0000)
committerhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 19 Feb 2006 18:03:52 +0000 (18:03 +0000)
* resolve.c (resolve_contained_functions): Call resolve_entries
first.
(resolve_types): Remove calls to resolve_entries and
resolve_contained_functions.
(gfc_resolve): Call resolve_contained_functions.

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

gcc/fortran/ChangeLog
gcc/fortran/resolve.c

index 7ef5205..6a15a1a 100644 (file)
@@ -1,3 +1,11 @@
+2006-02-19  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * resolve.c (resolve_contained_functions): Call resolve_entries
+       first.
+       (resolve_types): Remove calls to resolve_entries and
+       resolve_contained_functions.
+       (gfc_resolve): Call resolve_contained_functions.
+
 2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>
 
        PR fortran/26201
 2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>
 
        PR fortran/26201
index 63b2cd9..97f10f3 100644 (file)
@@ -542,6 +542,8 @@ resolve_contained_functions (gfc_namespace * ns)
   gfc_namespace *child;
   gfc_entry_list *el;
 
   gfc_namespace *child;
   gfc_entry_list *el;
 
+  resolve_entries (ns);
+
   resolve_formal_arglists (ns);
 
   for (child = ns->contained; child; child = child->sibling)
   resolve_formal_arglists (ns);
 
   for (child = ns->contained; child; child = child->sibling)
@@ -6088,10 +6090,6 @@ resolve_types (gfc_namespace * ns)
 
   gfc_current_ns = ns;
 
 
   gfc_current_ns = ns;
 
-  resolve_entries (ns);
-
-  resolve_contained_functions (ns);
-
   gfc_traverse_ns (ns, resolve_symbol);
 
   resolve_fntype (ns);
   gfc_traverse_ns (ns, resolve_symbol);
 
   resolve_fntype (ns);
@@ -6162,6 +6160,7 @@ gfc_resolve (gfc_namespace * ns)
 
   old_ns = gfc_current_ns;
 
 
   old_ns = gfc_current_ns;
 
+  resolve_contained_functions (ns);
   resolve_types (ns);
   resolve_codes (ns);
 
   resolve_types (ns);
   resolve_codes (ns);