From 4958f4ee0bf55dc699c84b2f65c8cb92e40c6fdf Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 27 Jul 2007 16:30:10 +0000 Subject: [PATCH] re PR fortran/32760 (Error defining subroutine named PRINT) 2007-07-27 Jerry DeLisle Daniel Franke PR fortran/32760 * primary.c (match_variable): Do not call gfc_add_flavor if symbol has attribute of ACCESS_PUBLIC or ACCESS_PRIVATE already marked. Co-Authored-By: Daniel Franke From-SVN: r126981 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/primary.c | 3 +++ 2 files changed, 10 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 40cd9af9469..7759da7a6a2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2007-07-27 Jerry DeLisle + Daniel Franke + + PR fortran/32760 + * primary.c (match_variable): Do not call gfc_add_flavor if symbol has + attribute of ACCESS_PUBLIC or ACCESS_PRIVATE already marked. + 2007-07-27 Francois-Xavier Coudert PR fortran/32035 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 0e3b6c0a139..71f6e9c43cb 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2452,6 +2452,9 @@ match_variable (gfc_expr **result, int equiv_flag, int host_flag) break; case FL_UNKNOWN: + if (sym->attr.access == ACCESS_PUBLIC + || sym->attr.access == ACCESS_PRIVATE) + break; if (gfc_add_flavor (&sym->attr, FL_VARIABLE, sym->name, NULL) == FAILURE) return MATCH_ERROR; -- 2.30.2