diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 3 |
2 files changed, 10 insertions, 0 deletions
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 <jvdelisle@gcc.gnu.org> + Daniel Franke <franke.daniel@gmail.com> + + 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 <fxcoudert@gcc.gnu.org> 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; |