[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