diff options
Diffstat (limited to 'gcc/fortran/parse.cc')
| -rw-r--r-- | gcc/fortran/parse.cc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc index 0b4c596..5b13441 100644 --- a/gcc/fortran/parse.cc +++ b/gcc/fortran/parse.cc @@ -1026,7 +1026,8 @@ decode_omp_directive (void) matcho ("loop", gfc_match_omp_loop, ST_OMP_LOOP); break; case 'o': - if (gfc_match ("ordered depend (") == MATCH_YES) + if (gfc_match ("ordered depend (") == MATCH_YES + || gfc_match ("ordered doacross (") == MATCH_YES) { gfc_current_locus = old_locus; if (!flag_openmp) @@ -5709,7 +5710,7 @@ parse_omp_structured_block (gfc_statement omp_st, bool workshare_stmts_only) } return st; } - else if (st != omp_end_st) + else if (st != omp_end_st || block_construct) { unexpected_statement (st); st = next_statement (); |