[Bug fortran/46271] [F03] OpenMP default(none) and procedure pointers

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
                 CC|                            |janus at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org
            Summary|OpenMP default(none) and    |[F03] OpenMP default(none)
                   |procedure pointers          |and procedure pointers

--- Comment #2 from janus at gcc dot gnu.org ---
Here is a simple patch to accept version A:


Index: gcc/fortran/openmp.c
===================================================================
--- gcc/fortran/openmp.c    (revision 201653)
+++ gcc/fortran/openmp.c    (working copy)
@@ -847,7 +847,7 @@ resolve_omp_clauses (gfc_code *code)
     for (n = omp_clauses->lists[list]; n; n = n->next)
       {
     n->sym->mark = 0;
-    if (n->sym->attr.flavor == FL_VARIABLE)
+    if (n->sym->attr.flavor == FL_VARIABLE || n->sym->attr.proc_pointer)
       continue;
     if (n->sym->attr.flavor == FL_PROCEDURE
         && n->sym->result == n->sym
@@ -876,8 +876,6 @@ resolve_omp_clauses (gfc_code *code)
         if (el)
           continue;
           }
-        if (n->sym->attr.proc_pointer)
-          continue;
       }
     gfc_error ("Object '%s' is not a variable at %L", n->sym->name,
            &code->loc);