OSDN Git Service

2006-02-24 Paul Thomas <pault@gcc.gnu.org>
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 24 Feb 2006 13:54:06 +0000 (13:54 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 24 Feb 2006 13:54:06 +0000 (13:54 +0000)
PR fortran/26409
* resolve.c (resolve_contained_functions, resolve_types,
gfc_resolve): Revert patch of 2006-02-19.

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

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

index f000725..c5e6bfa 100644 (file)
@@ -1,5 +1,11 @@
 2006-02-24  Paul Thomas  <pault@gcc.gnu.org>
 
+       PR fortran/26409
+       * resolve.c (resolve_contained_functions, resolve_types,
+       gfc_resolve): Revert patch of 2006-02-19.
+
+2006-02-24  Paul Thomas  <pault@gcc.gnu.org>
+
        PR fortran/24519
        * dependency.c (gfc_is_same_range): Correct typo.
        (gfc_check_section_vs_section): Call gfc_is_same_range.
index 97f10f3..63b2cd9 100644 (file)
@@ -542,8 +542,6 @@ resolve_contained_functions (gfc_namespace * ns)
   gfc_namespace *child;
   gfc_entry_list *el;
 
-  resolve_entries (ns);
-
   resolve_formal_arglists (ns);
 
   for (child = ns->contained; child; child = child->sibling)
@@ -6090,6 +6088,10 @@ resolve_types (gfc_namespace * ns)
 
   gfc_current_ns = ns;
 
+  resolve_entries (ns);
+
+  resolve_contained_functions (ns);
+
   gfc_traverse_ns (ns, resolve_symbol);
 
   resolve_fntype (ns);
@@ -6160,7 +6162,6 @@ gfc_resolve (gfc_namespace * ns)
 
   old_ns = gfc_current_ns;
 
-  resolve_contained_functions (ns);
   resolve_types (ns);
   resolve_codes (ns);