diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-08-20 13:33:21 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-08-20 13:33:40 +0200 |
| commit | 656218ab982cc22b826227045826c92743143af1 (patch) | |
| tree | c133194474a2e0c74e5a1e8854d35cda80e3d29b /libgomp | |
| parent | 1763ec9b20c0146a5a47f2259a44db1fbb9c923a (diff) | |
| download | gcc-656218ab982cc22b826227045826c92743143af1.zip gcc-656218ab982cc22b826227045826c92743143af1.tar.gz gcc-656218ab982cc22b826227045826c92743143af1.tar.bz2 | |
Fortran: Fix OpenMP's 'if(simd:' etc. conditions
gcc/fortran/ChangeLog:
* openmp.c (gfc_match_omp_clauses): Re-order 'if' clause pasing
to avoid creating spurious symbols.
libgomp/ChangeLog:
* testsuite/libgomp.fortran/lastprivate-conditional-10.f90: New test.
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/lastprivate-conditional-10.f90 | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate-conditional-10.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate-conditional-10.f90 new file mode 100644 index 0000000..116166c --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/lastprivate-conditional-10.f90 @@ -0,0 +1,63 @@ +! { dg-do run } +! Fortran version of libgomp.c-c++-common/lastprivate-conditional-10.c + +module m + implicit none + integer :: v = 0 + integer :: x = 0 +contains + integer function foo (a) + integer, contiguous :: a(0:) + integer i + + !$omp parallel do simd lastprivate (conditional: x) schedule(simd : static) if (simd : .false.) + do i = 0, 127 + if (a(i) /= 0) x = a(i) + end do + foo = x + end + + integer function bar (a, b) + integer, contiguous :: a(0:), b(0:) + integer :: i + !$omp parallel + !$omp do simd lastprivate (conditional: x, v) schedule(static, 16) simdlen (1) + do i = 16, 127 + if (a(i) /= 0) x = a(i); + if (b(i) /= 0) v = b(i) + 10; + end do + !$omp end parallel + bar = x + end + + integer function baz (a) + integer, contiguous :: a(0:) + integer :: i + !$omp parallel do simd if (simd : .false.) lastprivate (conditional: x) schedule(simd : dynamic, 16) + do i = 0, 127 + if (a(i) /= 0) x = a(i) + 5 + end do + baz = x + end +end module m + +program main + use m + implicit none + integer :: a(0:127), b(0:127), i + do i = 0, 127 + if (mod(i, 11) == 2) then + a(i) = i + 10 + else + a(i) = 0 + endif + if (mod(i, 13) == 5) then + b(i) = i * 2 + else + b(i) = 0 + endif + end do + if (foo (a) /= 133) stop 1 + if (bar (b, a) /= 244 .or. v /= 143) stop 2 + if (baz (b) /= 249) stop 3 +end |