Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/udr3.f90 @ 122:fb3d53c41846
do not expand code segment
author | mir3636 |
---|---|
date | Thu, 22 Mar 2018 17:37:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } !$omp declare reduction (foo : character(kind=1, len=*) & !$omp & : omp_out = trim(omp_out) // omp_in) initializer (omp_priv = '') !$omp declare reduction (bar : character(kind=1, len=:) & !$omp & : omp_out = trim(omp_in) // omp_out) initializer (omp_priv = '') !$omp declare reduction (baz : character(kind=1, len=1) & !$omp & : omp_out = char (ichar (omp_out) + ichar (omp_in) & !$omp & - ichar ('0'))) initializer (omp_priv = '0') !$omp declare reduction (baz : character(kind=1, len=2) & !$omp & : omp_out = char (ichar (omp_out(1:1)) + ichar (omp_in(1:1)) & !$omp & - ichar ('0')) // char (ichar (omp_out(2:2)) + & !$omp & ichar (omp_in(2:2)) - ichar ('0'))) initializer (omp_priv = '00') character(kind=1, len=64) :: c, d character(kind = 1, len=1) :: e character(kind = 1, len=1+1) :: f integer :: i c = '' d = '' e = '0' f = '00' !$omp parallel do reduction (foo : c) reduction (bar : d) & !$omp & reduction (baz : e, f) do i = 1, 64 c = trim(c) // char (ichar ('0') + i) d = char (ichar ('0') + i) // d e = char (ichar (e) + mod (i, 3)) f = char (ichar (f(1:1)) + mod (i, 2)) & & // char (ichar (f(2:2)) + mod (i, 3)) end do do i = 1, 64 if (index (c, char (ichar ('0') + i)) .eq. 0) call abort if (index (d, char (ichar ('0') + i)) .eq. 0) call abort end do if (e.ne.char (ichar ('0') + 64)) call abort if (f(1:1).ne.char (ichar ('0') + 32)) call abort if (f(2:2).ne.char (ichar ('0') + 64)) call abort end