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 | 4958f4ee0bf55dc699c84b2f65c8cb92e40c6fdf (patch) | |
| tree | 3e99be832e61869da7834ff84ef416606e4cdcae | |
| parent | 0b7406341cfd55645d110b78d0cfd23f80cc23db (diff) | |
re PR fortran/32760 (Error defining subroutine named PRINT)
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.
Co-Authored-By: Daniel Franke <franke.daniel@gmail.com>
From-SVN: r126981
| -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; |