[Bug fortran/44446] Error with protected pocedure pointer

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2010-06-07 15:58 -------
Untested:

--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -567,8 +567,9 @@ check_conflict (symbol_attribute *attr, const char *name,
locus *where)
     }

   conf (is_protected, intrinsic)
-  conf (is_protected, external)
   conf (is_protected, in_common)
+  if (!attr->proc_pointer)
+    conf (is_protected, external)

   conf (asynchronous, intrinsic)
   conf (asynchronous, external)


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2010-06-07 15:58:33
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44446