mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
49 lines
792 B
Fortran
49 lines
792 B
Fortran
! @@name: linear_modifier.1.f90
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: yes
|
|
! @@expect: success
|
|
! @@version: omp_4.5
|
|
module m
|
|
integer, parameter :: NN = 1023
|
|
integer :: a(NN)
|
|
|
|
contains
|
|
subroutine add_one2(p)
|
|
!$omp declare simd(add_one2) linear(ref(p)) simdlen(8)
|
|
implicit none
|
|
integer :: p
|
|
|
|
p = p + 1
|
|
end subroutine
|
|
end module
|
|
|
|
program main
|
|
use m
|
|
implicit none
|
|
integer :: i, p
|
|
|
|
do i = 1, NN
|
|
a(i) = i
|
|
end do
|
|
|
|
p = 1
|
|
!$omp simd linear(p) simdlen(8)
|
|
do i = 1, NN
|
|
associate(k => a(p))
|
|
call add_one2(k)
|
|
end associate
|
|
call add_one2(a(i))
|
|
p = p + 1
|
|
end do
|
|
|
|
do i = 1, NN
|
|
if (a(i) /= i+2) then
|
|
print *, "failed"
|
|
stop
|
|
endif
|
|
end do
|
|
print *, "passed"
|
|
end program
|
|
|