diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2006-02-19 18:03:52 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2006-02-19 10:03:52 -0800 |
| commit | caf0ecedc2724529e8d8a350d85b4234cc1e250c (patch) | |
| tree | b7ba154ca9a239900aa768bcc9140cb1b04d984d /gcc | |
| parent | 3431818f46f552697d3f4185488d666ba0339263 (diff) | |
| download | gcc-caf0ecedc2724529e8d8a350d85b4234cc1e250c.zip gcc-caf0ecedc2724529e8d8a350d85b4234cc1e250c.tar.gz gcc-caf0ecedc2724529e8d8a350d85b4234cc1e250c.tar.bz2 | |
resolve.c (resolve_contained_functions): Call resolve_entries first.
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.
From-SVN: r111271
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
2 files changed, 11 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7ef5205..6a15a1a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 63b2cd9..97f10f3 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); |