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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 40cd9af9469ec74f02e889f2a8f155a2c72383ef..7759da7a6a2f8768628b9038e07e7176a4217de3 100644 (file)
--- 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 0e3b6c0a13945f687a151664ed87d586b521e8d8..71f6e9c43cbedae25bf2911c54dbe5948c5a9571 100644 (file)
--- 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;