diff options
| author | Kwok Cheung Yeung <kcy@codesourcery.com> | 2020-06-25 04:40:53 -0700 |
|---|---|---|
| committer | Kwok Cheung Yeung <kcy@codesourcery.com> | 2020-06-25 06:09:40 -0700 |
| commit | f530bac8a11da9c85bdd8e58d589747f9825e38d (patch) | |
| tree | 4e7f0519934bb2102e4c50152e15f4c4ee28f384 /gcc/fortran/trans-openmp.c | |
| parent | 1dfa89b0355520ca501054726f25de9733796f48 (diff) | |
| download | gcc-f530bac8a11da9c85bdd8e58d589747f9825e38d.zip gcc-f530bac8a11da9c85bdd8e58d589747f9825e38d.tar.gz gcc-f530bac8a11da9c85bdd8e58d589747f9825e38d.tar.bz2 | |
fortran: Fix ICE when 'if' clause used with 'target parallel' (PR95869)
2020-06-25 Tobias Burnus <tobias@codesourcery.com>
Kwok Cheung Yeung <kcy@codesourery.com>
gcc/fortran/
PR fortran/95869
* trans-openmp.c (gfc_trans_omp_target): Use correct scoping block.
gcc/testsuite/
PR fortran/95869
* gfortran.dg/gomp/combined-if.f90 (test_target_parallel): Re-enable.
* gfortran.dg/gomp/pr95869.f90: New.
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 67b7094..22f8f96 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -5353,7 +5353,7 @@ gfc_trans_omp_target (gfc_code *code) pushlevel (); gfc_start_block (&iblock); tree inner_clauses - = gfc_trans_omp_clauses (&block, &clausesa[GFC_OMP_SPLIT_PARALLEL], + = gfc_trans_omp_clauses (&iblock, &clausesa[GFC_OMP_SPLIT_PARALLEL], code->loc); stmt = gfc_trans_omp_code (code->block->next, true); stmt = build2_loc (input_location, OMP_PARALLEL, void_type_node, stmt, |