diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-08-04 18:17:04 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-08-04 18:17:53 +0200 |
| commit | 57dd9f3bfca8bb752c630431dc033c761e2ad382 (patch) | |
| tree | 804b391fc51456adb28b827fd4c0a07c371c2ee0 /gcc/fortran/openmp.c | |
| parent | 73b7cb6dfcad1b3e7538ddc2b40cc327d2fe501a (diff) | |
| download | gcc-57dd9f3bfca8bb752c630431dc033c761e2ad382.zip gcc-57dd9f3bfca8bb752c630431dc033c761e2ad382.tar.gz gcc-57dd9f3bfca8bb752c630431dc033c761e2ad382.tar.bz2 | |
Fortran/OpenMP: Fix detecting not perfectly nested loops
gcc/fortran/ChangeLog:
* openmp.c (resolve_omp_do): Detect not perfectly
nested loop with innermost collapse.
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/collapse1.f90: Add dg-error.
* gfortran.dg/gomp/collapse2.f90: New test.
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) |