diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-10-11 12:09:23 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-10-11 12:09:23 +0000 |
| commit | 91a9632ca5578311dca3a5325ba59048324f4033 (patch) | |
| tree | 1d6b1db831a3a302f7892a85e50dd19845795cea /gcc/fortran/module.c | |
| parent | 506a7bc8995f0ca9357eca2ff7cdeb857612e283 (diff) | |
| download | gcc-91a9632ca5578311dca3a5325ba59048324f4033.zip gcc-91a9632ca5578311dca3a5325ba59048324f4033.tar.gz gcc-91a9632ca5578311dca3a5325ba59048324f4033.tar.bz2 | |
re PR fortran/37794 (Fortran module overloading regression)
2008-10-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37794
* module.c (check_for_ambiguous): Remove redundant code.
2008-10-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37794
* gfortran.dg/used_types_24.f90: New test.
From-SVN: r141057
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3846d95..b9c99fe 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3960,13 +3960,6 @@ check_for_ambiguous (gfc_symbol *st_sym, pointer_info *info) if (st_sym == rsym) return false; - /* Identical derived types are not ambiguous and will be rolled up - later. */ - if (st_sym->attr.flavor == FL_DERIVED - && rsym->attr.flavor == FL_DERIVED - && gfc_compare_derived_types (st_sym, rsym)) - return false; - /* If the existing symbol is generic from a different module and the new symbol is generic there can be no ambiguity. */ if (st_sym->attr.generic |