diff options
| author | Sandra Loosemore <sandra@codesourcery.com> | 2022-04-05 12:06:56 -0700 |
|---|---|---|
| committer | Sandra Loosemore <sandra@codesourcery.com> | 2022-04-05 12:10:29 -0700 |
| commit | 7de46116aa8c9bc4c5d24cb58ff717be8f0b650e (patch) | |
| tree | 72abe3d609160833624507e00e9c97fef9744c43 /gcc/fortran/trans-openmp.cc | |
| parent | cbc9dd66484a51d450f78ab748a872b939c90c3f (diff) | |
| download | gcc-7de46116aa8c9bc4c5d24cb58ff717be8f0b650e.zip gcc-7de46116aa8c9bc4c5d24cb58ff717be8f0b650e.tar.gz gcc-7de46116aa8c9bc4c5d24cb58ff717be8f0b650e.tar.bz2 | |
Fortran: Fix clause splitting for OMP masked taskloop directive
This patch fixes an obvious coding goof that caused all clauses for
the combined OMP masked taskloop directive to be discarded.
gcc/fortran/
* trans-openmp.cc (gfc_split_omp_clauses): Fix mask for
EXEC_OMP_MASKED_TASKLOOP.
gcc/testsuite/
* gfortran.dg/gomp/masked-taskloop.f90: New.
Diffstat (limited to 'gcc/fortran/trans-openmp.cc')
| -rw-r--r-- | gcc/fortran/trans-openmp.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc index 101924f..25dde82 100644 --- a/gcc/fortran/trans-openmp.cc +++ b/gcc/fortran/trans-openmp.cc @@ -5998,7 +5998,7 @@ gfc_split_omp_clauses (gfc_code *code, innermost = GFC_OMP_SPLIT_DO; break; case EXEC_OMP_MASKED_TASKLOOP: - mask = GFC_OMP_SPLIT_MASKED | GFC_OMP_SPLIT_TASKLOOP; + mask = GFC_OMP_MASK_MASKED | GFC_OMP_MASK_TASKLOOP; innermost = GFC_OMP_SPLIT_TASKLOOP; break; case EXEC_OMP_MASTER_TASKLOOP: |