diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-04-28 11:44:36 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-04-28 11:44:36 +0200 |
| commit | 6596e2fe5a8a24d62431577ef3c9c8e67682f9a3 (patch) | |
| tree | 0e226dd19b9aac453a4b0f078d25ecebc8d096e2 /gcc/fortran/parse.c | |
| parent | a6524a7cb87acd44fe46ad544292708f2d85be52 (diff) | |
| download | gcc-6596e2fe5a8a24d62431577ef3c9c8e67682f9a3.zip gcc-6596e2fe5a8a24d62431577ef3c9c8e67682f9a3.tar.gz gcc-6596e2fe5a8a24d62431577ef3c9c8e67682f9a3.tar.bz2 | |
re PR fortran/39930 (Bogus error: ambiguous reference)
2009-04-28 Janus Weil <janus@gcc.gnu.org>
PR fortran/39930
PR fortran/39931
* expr.c (gfc_check_pointer_assign): Correctly detect if the left hand
side is a pointer.
* parse.c (gfc_fixup_sibling_symbols): Don't check for ambiguity.
2009-04-28 Janus Weil <janus@gcc.gnu.org>
PR fortran/39930
PR fortran/39931
* gfortran.dg/ambiguous_reference_2.f90: New.
* gfortran.dg/pointer_assign_7.f90: New.
From-SVN: r146880
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 81e4591..c67e994 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3310,7 +3310,7 @@ gfc_fixup_sibling_symbols (gfc_symbol *sym, gfc_namespace *siblings) sym->attr.referenced = 1; for (ns = siblings; ns; ns = ns->sibling) { - gfc_find_sym_tree (sym->name, ns, 0, &st); + st = gfc_find_symtree (ns->sym_root, sym->name); if (!st || (st->n.sym->attr.dummy && ns == st->n.sym->ns)) goto fixup_contained; |