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);