blob: 158347b59dc19b2caddf4faa5ddb24d1eb601419 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do run }
program test
implicit none
real, allocatable :: a(:), b(:)
integer :: i
a = [(i, i = 1, 100)]
allocate(b, mold=a)
b = 0
!$omp target simd map(to:a) map(from:b)
do i = 1, size(a)
b(i) = 5.0 * a(i)
end do
if (any (b - 5.0 *a > 10.0*epsilon(a))) stop 1
!$omp target simd map(to:a) map(from:b)
do i = 1, size(a)
b(i) = 2.0 * a(i)
end do
!$omp end target simd
if (any (b - 2.0 *a > 10.0*epsilon(a))) stop 2
end program test
|