X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Fresolve.c;h=97f10f39c3c62771328fd33e133667b95aae7e78;hp=63b2cd9904d0027cce1239079d13a128eedc26bf;hb=8b0e883501b45c7240394bae2cc694482291a2ea;hpb=f35b9c8d44d37489fffd197200eb39dc10ead963

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 63b2cd9904d..97f10f39c3c 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -542,6 +542,8 @@ 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)
@@ -6088,10 +6090,6 @@ 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);
@@ -6162,6 +6160,7 @@ gfc_resolve (gfc_namespace * ns)
 
   old_ns = gfc_current_ns;
 
+  resolve_contained_functions (ns);
   resolve_types (ns);
   resolve_codes (ns);