diff options
| author | Jakub Jelinek <jakub@gcc.gnu.org> | 2017-11-23 21:16:38 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2017-11-23 21:16:38 +0100 |
| commit | 3b575376fbba16c3be9f607fbf53a6c841b3baae (patch) | |
| tree | 178214b2b2fe3727a5aae2a00605f0ca690a54be /gcc/fortran/parse.c | |
| parent | 11aa563708d37d1b1f97864261971f8206d72554 (diff) | |
| download | gcc-3b575376fbba16c3be9f607fbf53a6c841b3baae.zip gcc-3b575376fbba16c3be9f607fbf53a6c841b3baae.tar.gz gcc-3b575376fbba16c3be9f607fbf53a6c841b3baae.tar.bz2 | |
re PR fortran/81841 (THREADPRIVATE (OpenMP) wrongly rejected in BLOCK DATA)
PR fortran/81841
* parse.c (parse_spec): Allow ST_OMP_THREADPRIVATE inside of
BLOCK DATA.
* libgomp.fortran/pr81841.f90: New test.
From-SVN: r255115
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index d025c91..08bff3f 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3699,6 +3699,7 @@ loop: case ST_EQUIVALENCE: case ST_IMPLICIT: case ST_IMPLICIT_NONE: + case ST_OMP_THREADPRIVATE: case ST_PARAMETER: case ST_STRUCTURE_DECL: case ST_TYPE: |