Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do run } module e_50_3_mod contains subroutine init (v1, v2, N) integer :: i, N real :: v1(N), v2(N) do i = 1, N v1(i) = i + 2.0 v2(i) = i - 3.0 end do end subroutine subroutine check (p, N) integer :: i, N real, parameter :: EPS = 0.00001 real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine subroutine vec_mult (N) integer :: i, N real :: p(N), v1(N), v2(N) call init (v1, v2, N) !$omp target map(to: v1,v2) map(from: p) !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) end do !$omp end target call check (p, N) end subroutine end module program e_50_3 use e_50_3_mod, only : vec_mult integer :: n n = 1000 call vec_mult (n) end program