diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-27 16:30:10 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-27 16:30:10 +0000 |
| commit | fd17834cf5e9151a174f9c53c68c5409499e5bd2 (patch) | |
| tree | 3e99be832e61869da7834ff84ef416606e4cdcae | |
| parent | a171a02a39c15433a01625ab04122609b7b0ce3e (diff) | |
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.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@126981 138bc75d-0d04-0410-961f-82ee72b054a4
| -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; |