[Bug fortran/84313] [F08] reject procedure pointers in COMMON blocks

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84313

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2018-02-12
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
This should do it:


Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c        (revision 257589)
+++ gcc/fortran/symbol.c        (working copy)
@@ -809,7 +809,7 @@ check_conflict (symbol_attribute *attr, const char
            conf2 (threadprivate);
        }

-      if (!attr->proc_pointer)
+      if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008))
        conf2 (in_common);

       conf2 (omp_declare_target_link);