From: pault Date: Fri, 24 Feb 2006 13:54:06 +0000 (+0000) Subject: 2006-02-24 Paul Thomas X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=da8ac1db1de814da13b77cbc36aa834e3b667164;hp=477c2f8751efea5fa8a283d3a0faec5115175282 2006-02-24 Paul Thomas 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 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f00072509bb..c5e6bfa6564 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2006-02-24 Paul Thomas + PR fortran/26409 + * resolve.c (resolve_contained_functions, resolve_types, + gfc_resolve): Revert patch of 2006-02-19. + +2006-02-24 Paul Thomas + PR fortran/24519 * dependency.c (gfc_is_same_range): Correct typo. (gfc_check_section_vs_section): Call gfc_is_same_range. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 97f10f39c3c..63b2cd9904d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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);