blob: 8547fceb79e857778b7cbf558c0c77bc9bf98df0 (
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
|
! PR fortran/84418
! { dg-do run { target vect_simd_clones } }
! { dg-options "-fno-inline" }
! { dg-additional-options "-msse2" { target sse2_runtime } }
! { dg-additional-options "-mavx" { target avx_runtime } }
real :: a(1024), b(1024), c(1024)
integer :: i
do i = 1, 1024
a(i) = 0.5 * i
b(i) = 1.5 * i
end do
!$omp simd
do i = 1, 1024
c(i) = foo (a(i), b(i))
end do
do i = 1, 1024
if (c(i).ne.(2 * i)) stop 1
end do
contains
real function foo (x, y)
real :: x, y
!$omp declare simd linear (ref (x, y))
foo = x + y
end function
end
|
