PR fortran/20896
* interface.c (check_sym_interfaces): Remove call to
resolve_global_procedure.
gfortran.h : Remove prototype for resolve_global_procedure.
resolve.c (resolve_global_procedure): Add static attribute
to function declaration.
2007-01-02 Paul Thomas <pault@gcc.gnu.org>
PR fortran/20896
* gfortran.dg/interface_10.f90: Remove.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120342
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-01-02 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/20896
+ * interface.c (check_sym_interfaces): Remove call to
+ resolve_global_procedure.
+ gfortran.h : Remove prototype for resolve_global_procedure.
+ resolve.c (resolve_global_procedure): Add static attribute
+ to function declaration.
+
2007-01-01 Steven G. Kargl <kargls@comcast.net>
* ChangeLog: Copy to ...
void gfc_free_statements (gfc_code *);
/* resolve.c */
-void resolve_global_procedure (gfc_symbol *, locus *, int);
try gfc_resolve_expr (gfc_expr *);
void gfc_resolve (gfc_namespace *);
void gfc_resolve_blocks (gfc_code *, gfc_namespace *);
if (sym->ns != gfc_current_ns)
return;
- if (sym->attr.if_source == IFSRC_IFBODY
- && sym->attr.flavor == FL_PROCEDURE
- && !sym->attr.mod_proc)
- resolve_global_procedure (sym, &sym->declared_at, sym->attr.subroutine);
-
if (sym->generic != NULL)
{
sprintf (interface_name, "generic interface '%s'", sym->name);
reference. The corresponding code that is called in creating
global entities is parse.c. */
-void
+static void
resolve_global_procedure (gfc_symbol *sym, locus *where, int sub)
{
gfc_gsymbol * gsym;
+2007-01-02 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/20896
+ * gfortran.dg/interface_10.f90: Remove.
+
2007-01-01 Roger Sayle <roger@eyesopen.com>
* gcc.dg/fold-eqxor-4.c: New test case.
+++ /dev/null
-! { dg-do compile }
-! Test the fix for PR20896 in which the ambiguous use
-! of p was not detected.
-!
-! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
-!
- INTERFACE g
- SUBROUTINE s1(p) ! { dg-error "is already being used" }
- INTERFACE
- SUBROUTINE p
- END
- END INTERFACE
- END
- SUBROUTINE s2(p) ! { dg-error "Global name" }
- INTERFACE
- REAL FUNCTION p()
- END
- END INTERFACE
- END
- END INTERFACE
-
- INTERFACE
- REAL FUNCTION x()
- END
- END INTERFACE
- INTERFACE
- SUBROUTINE y
- END
- END INTERFACE
- call g (x)
- call g (y)
- END
-