diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-08-20 13:33:21 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-08-20 13:33:40 +0200 |
| commit | 656218ab982cc22b826227045826c92743143af1 (patch) | |
| tree | c133194474a2e0c74e5a1e8854d35cda80e3d29b /gcc/fortran/openmp.c | |
| parent | 1763ec9b20c0146a5a47f2259a44db1fbb9c923a (diff) | |
| download | gcc-656218ab982cc22b826227045826c92743143af1.zip gcc-656218ab982cc22b826227045826c92743143af1.tar.gz gcc-656218ab982cc22b826227045826c92743143af1.tar.bz2 | |
Fortran: Fix OpenMP's 'if(simd:' etc. conditions
gcc/fortran/ChangeLog:
* openmp.c (gfc_match_omp_clauses): Re-order 'if' clause pasing
to avoid creating spurious symbols.
libgomp/ChangeLog:
* testsuite/libgomp.fortran/lastprivate-conditional-10.f90: New test.
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 4d33a45..5098373 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -1299,8 +1299,6 @@ gfc_match_omp_clauses (gfc_omp_clauses **cp, const omp_mask mask, && c->if_expr == NULL && gfc_match ("if ( ") == MATCH_YES) { - if (gfc_match ("%e )", &c->if_expr) == MATCH_YES) - continue; if (!openacc) { /* This should match the enum gfc_omp_if_kind order. */ @@ -1323,6 +1321,8 @@ gfc_match_omp_clauses (gfc_omp_clauses **cp, const omp_mask mask, if (i < OMP_IF_LAST) continue; } + if (gfc_match ("%e )", &c->if_expr) == MATCH_YES) + continue; gfc_current_locus = old_loc; } if ((mask & OMP_CLAUSE_IF_PRESENT) |