Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/reference1.f90 @ 55:77e2b8dfacca gcc-4.4.5
update it from 4.4.3 to 4.5.0
author | ryoma <e075725@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 12 Feb 2010 23:39:51 +0900 |
parents | a06113de4d67 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } !$ use omp_lib integer :: i, j, k double precision :: d i = 6 j = 19 k = 0 d = 24.5 call test (i, j, k, d) if (i .ne. 38) call abort if (iand (k, 255) .ne. 0) call abort if (iand (k, 65280) .eq. 0) then if (k .ne. 65536 * 4) call abort end if contains subroutine test (i, j, k, d) integer :: i, j, k double precision :: d !$omp parallel firstprivate (d) private (j) num_threads (4) reduction (+:k) if (i .ne. 6 .or. d .ne. 24.5 .or. k .ne. 0) k = k + 1 if (omp_get_num_threads () .ne. 4) k = k + 256 d = d / 2 j = 8 k = k + 65536 !$omp barrier if (d .ne. 12.25 .or. j .ne. 8) k = k + 1 !$omp single i = i + 32 !$omp end single nowait !$omp end parallel end subroutine test end