Hi!

On 2017-05-01T18:27:59-0700, Cesar Philippidis <cesar@codesourcery.com> wrote:
> --- a/gcc/fortran/openmp.c
> +++ b/gcc/fortran/openmp.c
> @@ -6090,6 +6090,18 @@ resolve_oacc_loop_blocks (gfc_code *code)

> +  if (code->op == EXEC_OACC_LOOP
> +      && code->ext.omp_clauses->lists[OMP_LIST_REDUCTION]
> +      && code->ext.omp_clauses->gang)
> +    {
> +      for (c = omp_current_ctx; c; c = c->previous)
> +     if (!oacc_is_loop (c->code))
> +       break;
> +      if (c == NULL || !(oacc_is_parallel (c->code)
> +                      || oacc_is_kernels (c->code)))
> +      gfc_error ("gang reduction on an orphan loop at %L", &code->loc);
> +    }

To avoid erroneous diagnostics, we also need to handle the OpenACC
'serial' construct here.  I've adapted Kwok's relevant patch, and pushed
to master branch commit f1a58ab0db20c0862e8b5039bd448fc8c9799cac
"[OpenACC] Allow gang reductions inside serial constructs", see attached.


Grüße
 Thomas


-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955