diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-09-14 14:17:35 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-09-14 14:17:35 +0200 |
| commit | 33fdbbe4ce6055eb858096d01720ccf94aa854ec (patch) | |
| tree | 1612883531dabd9e4010657a98edbd206b9feb5f /gcc/fortran/parse.c | |
| parent | e2103982da7be8781900653a5f7c5a5d0a57d38a (diff) | |
| download | gcc-33fdbbe4ce6055eb858096d01720ccf94aa854ec.zip gcc-33fdbbe4ce6055eb858096d01720ccf94aa854ec.tar.gz gcc-33fdbbe4ce6055eb858096d01720ccf94aa854ec.tar.bz2 | |
Fortran: Add missing ST_OMP_END_SCOPE handling [PR102313]
PR fortran/102313
gcc/fortran/ChangeLog:
* parse.c (gfc_ascii_statement): Add missing ST_OMP_END_SCOPE.
gcc/testsuite/ChangeLog:
* gfortran.dg/goacc/unexpected-end.f90: New test.
* gfortran.dg/gomp/unexpected-end.f90: New 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 d37a0b5..7d765a0 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -2406,6 +2406,9 @@ gfc_ascii_statement (gfc_statement st) case ST_OMP_END_DO_SIMD: p = "!$OMP END DO SIMD"; break; + case ST_OMP_END_SCOPE: + p = "!$OMP END SCOPE"; + break; case ST_OMP_END_SIMD: p = "!$OMP END SIMD"; break; |