diff options
author | Tobias Burnus <burnus@net-b.de> | 2010-06-02 07:55:19 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-06-02 07:55:19 +0200 |
commit | aac18c0250f9a03f725be1f2ee32d87a2d743f09 (patch) | |
tree | 3644ad69527f5ef996ad04fa33bf8bcbc937af15 /gcc/fortran | |
parent | a76135dc57c990d12740e4bcc037d96465ce1374 (diff) | |
download | gcc-aac18c0250f9a03f725be1f2ee32d87a2d743f09.zip gcc-aac18c0250f9a03f725be1f2ee32d87a2d743f09.tar.gz gcc-aac18c0250f9a03f725be1f2ee32d87a2d743f09.tar.bz2 |
re PR fortran/44360 (wrong-code: host-associated procedure wrongly favoured to use-associated one)
2010-06-02 Tobias Burnus <burnus@net-b.de>
PR fortran/44360
* parse.c (gfc_fixup_sibling_symbols): Do not "fix"
use-associated symbols.
2010-06-02 Tobias Burnus <burnus@net-b.de>
PR fortran/44360
* gfortran.dg/use_13.f90: New test case.
From-SVN: r160138
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/parse.c | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 80f78c1..0db8ce5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-06-02 Tobias Burnus <burnus@net-b.de> + + PR fortran/44360 + * parse.c (gfc_fixup_sibling_symbols): Do not "fix" use-associated + symbols. + 2010-06-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/44371 diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 31ad7cf..7fc3541 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3667,6 +3667,7 @@ gfc_fixup_sibling_symbols (gfc_symbol *sym, gfc_namespace *siblings) || (old_sym->ts.type != BT_UNKNOWN && !old_sym->attr.implicit_type) || old_sym->attr.flavor == FL_PARAMETER + || old_sym->attr.use_assoc || old_sym->attr.in_common || old_sym->attr.in_equivalence || old_sym->attr.data |