diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2023-02-09 10:58:00 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2023-02-09 11:00:26 +0100 |
| commit | ae091a44f6a477fbcf463e80fd604540cad3b37f (patch) | |
| tree | a82384300215dfc31bdc19311f107451a6febb32 /gcc/fortran/parse.cc | |
| parent | 9453e3cd0ffd0c377a648b83a9a5fdc5809e60d7 (diff) | |
| download | gcc-ae091a44f6a477fbcf463e80fd604540cad3b37f.zip gcc-ae091a44f6a477fbcf463e80fd604540cad3b37f.tar.gz gcc-ae091a44f6a477fbcf463e80fd604540cad3b37f.tar.bz2 | |
Fortran/OpenMP: Fix -fopenmp-simd for 'omp assume(s)'
While 'omp assume' is enabled by -fopenmp-simd, 'omp assumes' is not;
however, due to the way parsing works in Fortran (esp. for fixed-form
source code), 'assumes' was parsed by 'assume' which then stumbled over
the tailing 's'.
gcc/fortran/
* parse.cc (decode_omp_directive): Really ignore 'assumes' with
-fopenmp-simd.
gcc/testsuite/
* gfortran.dg/gomp/openmp-simd-8.f90: New test.
Diffstat (limited to 'gcc/fortran/parse.cc')
| -rw-r--r-- | gcc/fortran/parse.cc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc index 039e7e7..f5154d9 100644 --- a/gcc/fortran/parse.cc +++ b/gcc/fortran/parse.cc @@ -885,6 +885,9 @@ decode_omp_directive (void) switch (c) { case 'a': + /* For -fopenmp-simd, ignore 'assumes'; note no clause starts with 's'. */ + if (!flag_openmp && gfc_match ("assumes") == MATCH_YES) + break; matcho ("assumes", gfc_match_omp_assumes, ST_OMP_ASSUMES); matchs ("assume", gfc_match_omp_assume, ST_OMP_ASSUME); matcho ("atomic", gfc_match_omp_atomic, ST_OMP_ATOMIC); |