diff options
author | Tobias Burnus <tobias@codesourcery.com> | 2023-10-08 11:54:07 +0200 |
---|---|---|
committer | Tobias Burnus <tobias@codesourcery.com> | 2023-10-08 11:54:07 +0200 |
commit | 6a8edd50a149f10621b59798c887c24c81c8b9ea (patch) | |
tree | 751b651dafaeba4758905671a5536351ffac1fce /libcpp | |
parent | 3da32cc3d1e48f2eac1630e627d34723b9536166 (diff) | |
download | gcc-6a8edd50a149f10621b59798c887c24c81c8b9ea.zip gcc-6a8edd50a149f10621b59798c887c24c81c8b9ea.tar.gz gcc-6a8edd50a149f10621b59798c887c24c81c8b9ea.tar.bz2 |
Fortran/OpenMP: Fix handling of strictly structured blocks
For strictly structured blocks, a BLOCK was created but the code
was placed after the block the outer structured block. Additionally,
labelled blocks were mishandled. As the code is now properly in a
BLOCK, it solves additional issues.
gcc/fortran/ChangeLog:
* parse.cc (parse_omp_structured_block): Make the user code end
up inside of BLOCK construct for strictly structured blocks;
fix fallout for 'section' and 'teams'.
* openmp.cc (resolve_omp_target): Fix changed BLOCK handling
for teams in target checking.
libgomp/ChangeLog:
* testsuite/libgomp.fortran/strictly-structured-block-1.f90: New test.
gcc/testsuite/ChangeLog:
* gfortran.dg/block_17.f90: New test.
* gfortran.dg/gomp/strictly-structured-block-5.f90: New test.
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions