diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-08-04 18:17:04 +0200 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 15:07:33 -0300 |
| commit | 6b7a692fd96094446167e42b8298dc4680452528 (patch) | |
| tree | 01ee9a23bb566e3662e12facb96e1f08facdc70e /gcc/fortran/openmp.c | |
| parent | 487c4965f794d3d8da4a20e4862d60a6e853cb5b (diff) | |
| download | gcc-6b7a692fd96094446167e42b8298dc4680452528.zip gcc-6b7a692fd96094446167e42b8298dc4680452528.tar.gz gcc-6b7a692fd96094446167e42b8298dc4680452528.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) |