Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/reduction5.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } module reduction5 intrinsic ior, min, max end module reduction5 call test1 call test2 contains subroutine test1 use reduction5, bitwise_or => ior integer :: n n = int(Z'f') !$omp parallel sections num_threads (3) reduction (bitwise_or: n) n = ior (n, int(Z'20')) !$omp section n = bitwise_or (int(Z'410'), n) !$omp section n = bitwise_or (n, int(Z'2000')) !$omp end parallel sections if (n .ne. int(Z'243f')) stop 1 end subroutine subroutine test2 use reduction5, min => max, max => min integer :: m, n m = 8 n = 4 !$omp parallel sections num_threads (3) reduction (min: n) & !$omp & reduction (max: m) if (m .gt. 13) m = 13 if (n .lt. 11) n = 11 !$omp section if (m .gt. 5) m = 5 if (n .lt. 15) n = 15 !$omp section if (m .gt. 3) m = 3 if (n .lt. -1) n = -1 !$omp end parallel sections if (m .ne. 3 .or. n .ne. 15) stop 2 end subroutine test2 end ! { dg-final { cleanup-modules "reduction5" } }