This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/54949] [F03] abstract procedure pointers not rejected
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 17 Oct 2012 13:52:54 +0000
- Subject: [Bug fortran/54949] [F03] abstract procedure pointers not rejected
- Auto-submitted: auto-generated
- References: <bug-54949-4@http.gcc.gnu.org/bugzilla/>
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