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/parse.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/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 68cd58e..4bff0c8 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -5231,6 +5231,9 @@ parse_omp_structured_block (gfc_statement omp_st, bool workshare_stmts_only) case ST_OMP_TARGET_DATA: omp_end_st = ST_OMP_END_TARGET_DATA; break; + case ST_OMP_TARGET_PARALLEL: + omp_end_st = ST_OMP_END_TARGET_PARALLEL; + break; case ST_OMP_TARGET_TEAMS: omp_end_st = ST_OMP_END_TARGET_TEAMS; break; |