| commit | a845ae6c1deef0894074c76465b2e5f0ee124e12 | |
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 30 Jun 2016 17:45:21 +0000 (30 17:45 +0000) | ||
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 30 Jun 2016 17:45:21 +0000 (30 17:45 +0000) | ||
| tree | c2bfa8ece838421c7970feab49f1b7fb9a3e7488 | treesnapshot (tar.gz zip) |
| parent | 720a0bce9fa0bda69f32c4acfef4433a670b1d44 | commitdiff |
PR fortran/71704
* parse.c (matchs, matcho): Move right before decode_omp_directive.
If spec_only, only gfc_match the keyword and if successful, goto
do_spec_only.
(matchds, matchdo): Define.
(decode_omp_directive): Add spec_only local var and set it.
Use matchds or matchdo macros instead of matchs or matcho
for declare target, declare simd, declare reduction and threadprivate
directives. Return ST_GET_FCN_CHARACTERISTICS if a non-declarative
directive could be matched.
(next_statement): For ST_GET_FCN_CHARACTERISTICS restore
gfc_current_locus from old_locus even if there is no label.
* gfortran.dg/gomp/pr71704.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@237888 138bc75d-0d04-0410-961f-82ee72b054a4
* parse.c (matchs, matcho): Move right before decode_omp_directive.
If spec_only, only gfc_match the keyword and if successful, goto
do_spec_only.
(matchds, matchdo): Define.
(decode_omp_directive): Add spec_only local var and set it.
Use matchds or matchdo macros instead of matchs or matcho
for declare target, declare simd, declare reduction and threadprivate
directives. Return ST_GET_FCN_CHARACTERISTICS if a non-declarative
directive could be matched.
(next_statement): For ST_GET_FCN_CHARACTERISTICS restore
gfc_current_locus from old_locus even if there is no label.
* gfortran.dg/gomp/pr71704.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@237888 138bc75d-0d04-0410-961f-82ee72b054a4