[Bug fortran/54949] [F03] abstract procedure pointers not rejected

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2012-10-17
         AssignedTo|unassigned at gcc dot       |janus at gcc dot gnu.org
                   |gnu.org                     |
     Ever Confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org 2012-10-17 13:52:54 UTC ---
Preliminary patch:

Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c    (revision 192392)
+++ gcc/fortran/symbol.c    (working copy)
@@ -374,6 +374,7 @@ check_conflict (symbol_attribute *attr, const char
     *cray_pointee = "CRAY POINTEE", *data = "DATA", *value = "VALUE",
     *volatile_ = "VOLATILE", *is_protected = "PROTECTED",
     *is_bind_c = "BIND(C)", *procedure = "PROCEDURE",
+    *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT",
     *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION",
     *contiguous = "CONTIGUOUS", *generic = "GENERIC";
   static const char *threadprivate = "THREADPRIVATE";
@@ -604,6 +605,8 @@ check_conflict (symbol_attribute *attr, const char
   conf (procedure, asynchronous)
   conf (procedure, entry)

+  conf (proc_pointer, abstract)
+
   a1 = gfc_code2string (flavors, attr->flavor);

   if (attr->in_namelist