diff options
author | cesar <cesar@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-01 14:27:11 +0000 |
---|---|---|
committer | cesar <cesar@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-01 14:27:11 +0000 |
commit | 93ecb2f2e26711222dbbafc623a5a8d2878dd709 (patch) | |
tree | 9c6035c5b4ecd42e5ff36d1590932fb6e64bd6e3 /gcc/fortran/gfortran.h | |
parent | d7e32074e5dbb7b2c7eb36428be3e4416e96c487 (diff) | |
download | gcc-93ecb2f2e26711222dbbafc623a5a8d2878dd709.tar.gz |
gcc/fortran/
* dump-parse-tree.c (show_omp_clauses): Handle optional num and static
arguments for the gang clause.
* gfortran.h (gfc_omp_clauses): Rename gang_expr as gang_num_expr.
Add gang_static_expr.
* openmp.c (gfc_free_omp_clauses): Update to free gang_num_expr and
gang_static_expr.
(match_oacc_clause_gang): Update to support both num and static in
the same clause.
(resolve_omp_clauses): Formatting. Also handle gang_num_expr and
gang_static_expr.
(resolve_oacc_params_in_parallel): New const char arg argument.
Use it to report more accurate gang, worker and vector clause errors.
(resolve_oacc_loop_blocks): Update calls to
resolve_oacc_params_in_parallel.
* trans-openmp.c (gfc_trans_omp_clauses): Update the gimplification of
the gang clause.
(gfc_trans_oacc_combined_directive): Make use of gang_num_expr and
gang_static_expr. Remove OMP_LIST_REDUCTION from construct_clauses.
gcc/testsuite/
* gfortran.dg/goacc/gang-static.f95: Add tests for gang num arguments.
* gfortran.dg/goacc/loop-2.f95: Update expected diagnostics.
* gfortran.dg/goacc/loop-6.f95: Likewise.
* gfortran.dg/goacc/loop-7.f95: New test.
* gfortran.dg/goacc/reduction-2.f95: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@231112 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/gfortran.h')
-rw-r--r-- | gcc/fortran/gfortran.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 0628e8628c2..92bf633f29c 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1229,7 +1229,8 @@ typedef struct gfc_omp_clauses /* OpenACC. */ struct gfc_expr *async_expr; - struct gfc_expr *gang_expr; + struct gfc_expr *gang_static_expr; + struct gfc_expr *gang_num_expr; struct gfc_expr *worker_expr; struct gfc_expr *vector_expr; struct gfc_expr *num_gangs_expr; |