diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2018-11-30 21:39:18 +0100 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2018-11-30 21:39:18 +0100 |
| commit | fc2a1f2fa6d30a2813cfaa999bf49ea21e7e11c9 (patch) | |
| tree | 05ccf31d998623ac0c4f4ba4a4860259ef77dec4 /gcc/fortran/openmp.c | |
| parent | c34f4fbcc450474885baede3d5de8dcfcb9f103f (diff) | |
| download | gcc-fc2a1f2fa6d30a2813cfaa999bf49ea21e7e11c9.zip gcc-fc2a1f2fa6d30a2813cfaa999bf49ea21e7e11c9.tar.gz gcc-fc2a1f2fa6d30a2813cfaa999bf49ea21e7e11c9.tar.bz2 | |
Clean up Fortran OpenACC wait clause handling
"wait" can be deduced from "wait_list".
gcc/fortran/
* gfortran.h (struct gfc_omp_clauses): Remove "wait". Adjust all
users.
From-SVN: r266685
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index e1560c1..fb9c073 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -1878,7 +1878,6 @@ gfc_match_omp_clauses (gfc_omp_clauses **cp, const omp_mask mask, if ((mask & OMP_CLAUSE_WAIT) && gfc_match ("wait") == MATCH_YES) { - c->wait = true; match m = match_oacc_expr_list (" (", &c->wait_list, false); if (m == MATCH_ERROR) { @@ -4779,10 +4778,8 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, resolve_positive_int_expr (omp_clauses->worker_expr, "WORKER"); if (omp_clauses->vector_expr) resolve_positive_int_expr (omp_clauses->vector_expr, "VECTOR"); - if (omp_clauses->wait) - if (omp_clauses->wait_list) - for (el = omp_clauses->wait_list; el; el = el->next) - resolve_scalar_int_expr (el->expr, "WAIT"); + for (el = omp_clauses->wait_list; el; el = el->next) + resolve_scalar_int_expr (el->expr, "WAIT"); if (omp_clauses->collapse && omp_clauses->tile_list) gfc_error ("Incompatible use of TILE and COLLAPSE at %L", &code->loc); if (omp_clauses->depend_source && code->op != EXEC_OMP_ORDERED) |