diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2020-01-22 09:54:59 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2020-01-22 09:54:59 +0100 |
| commit | 44a9d801a7080d39658754ad603536da6cff2cd0 (patch) | |
| tree | 617e098fd0dca82af8e90aef29025792bb7f3424 /gcc/fortran/trans-openmp.c | |
| parent | a38979d9d7a4ab08336436052704028c56187618 (diff) | |
| download | gcc-44a9d801a7080d39658754ad603536da6cff2cd0.zip gcc-44a9d801a7080d39658754ad603536da6cff2cd0.tar.gz gcc-44a9d801a7080d39658754ad603536da6cff2cd0.tar.bz2 | |
openmp: Fix up !$omp target parallel handling
The PR93329 fix revealed we ICE on !$omp target parallel, this change fixes
that.
2020-01-22 Jakub Jelinek <jakub@redhat.com>
* parse.c (parse_omp_structured_block): Handle ST_OMP_TARGET_PARALLEL.
* trans-openmp.c (gfc_trans_omp_target)
<case EXEC_OMP_TARGET_PARALLEL>: Call pushlevel first.
* gfortran.dg/gomp/target-parallel1.f90: New test.
* gfortran.dg/goacc/pr93329.f90: Enable commented out target parallel
test.
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 9835d2a..fd60bbb 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -5357,6 +5357,7 @@ gfc_trans_omp_target (gfc_code *code) { stmtblock_t iblock; + pushlevel (); gfc_start_block (&iblock); tree inner_clauses = gfc_trans_omp_clauses (&block, &clausesa[GFC_OMP_SPLIT_PARALLEL], |