diff options
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index ec11620..f402feb 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -6202,8 +6202,6 @@ resolve_omp_do (gfc_code *code) do_code2 = do_code2->block->next; } } - if (i == collapse) - break; for (c = do_code->next; c; c = c->next) if (c->op != EXEC_NOP && c->op != EXEC_CONTINUE) { @@ -6211,7 +6209,7 @@ resolve_omp_do (gfc_code *code) name, &c->loc); break; } - if (c) + if (i == collapse || c) break; do_code = do_code->block; if (do_code->op != EXEC_DO && do_code->op != EXEC_DO_WHILE) |