forked from OSchip/llvm-project
123 lines
2.5 KiB
Fortran
123 lines
2.5 KiB
Fortran
! RUN: %S/../test_errors.sh %s %t %flang -fopenacc
|
|
|
|
! Check OpenACC clause validity for the following construct and directive:
|
|
! 2.11 Parallel Loop
|
|
|
|
program openacc_parallel_loop_validity
|
|
|
|
implicit none
|
|
|
|
integer :: i, j, b
|
|
integer, parameter :: N = 256
|
|
integer, dimension(N) :: c
|
|
logical, dimension(N) :: d, e
|
|
real :: reduction_r
|
|
logical :: reduction_l
|
|
logical :: ifCondition = .TRUE.
|
|
real(8), dimension(N) :: a, f, g, h
|
|
real(8), dimension(N, N) :: aa, bb, cc
|
|
|
|
!$acc parallel loop tile(2)
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
|
|
!$acc parallel loop self
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
|
|
!ERROR: SELF clause on the PARALLEL LOOP directive only accepts optional scalar logical expression
|
|
!$acc parallel loop self(bb, cc(:))
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
|
|
!$acc parallel loop self(.true.)
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
|
|
!$acc parallel loop self(ifCondition)
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
|
|
!$acc parallel loop tile(2, 2)
|
|
do i = 1, N
|
|
do j = 1, N
|
|
aa(i, j) = 3.14
|
|
end do
|
|
end do
|
|
|
|
!ERROR: Clause IF is not allowed after clause DEVICE_TYPE on the PARALLEL LOOP directive
|
|
!$acc parallel loop device_type(*) if(.TRUE.)
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
!$acc end parallel loop
|
|
|
|
!$acc kernels loop
|
|
do i = 1, N
|
|
a(i) = 3.14
|
|
end do
|
|
!ERROR: Unmatched END PARALLEL LOOP directive
|
|
!$acc end parallel loop
|
|
|
|
!$acc parallel loop reduction(+: reduction_r)
|
|
do i = 1, N
|
|
reduction_r = a(i) + i
|
|
end do
|
|
|
|
!$acc parallel loop reduction(*: reduction_r)
|
|
do i = 1, N
|
|
reduction_r = reduction_r * (a(i) + i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(min: reduction_r)
|
|
do i = 1, N
|
|
reduction_r = min(reduction_r, a(i) * i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(max: reduction_r)
|
|
do i = 1, N
|
|
reduction_r = max(reduction_r, a(i) * i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(iand: b)
|
|
do i = 1, N
|
|
b = iand(b, c(i))
|
|
end do
|
|
|
|
!$acc parallel loop reduction(ior: b)
|
|
do i = 1, N
|
|
b = ior(b, c(i))
|
|
end do
|
|
|
|
!$acc parallel loop reduction(ieor: b)
|
|
do i = 1, N
|
|
b = ieor(b, c(i))
|
|
end do
|
|
|
|
!$acc parallel loop reduction(.and.: reduction_l)
|
|
do i = 1, N
|
|
reduction_l = d(i) .and. e(i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(.or.: reduction_l)
|
|
do i = 1, N
|
|
reduction_l = d(i) .or. e(i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(.eqv.: reduction_l)
|
|
do i = 1, N
|
|
reduction_l = d(i) .eqv. e(i)
|
|
end do
|
|
|
|
!$acc parallel loop reduction(.neqv.: reduction_l)
|
|
do i = 1, N
|
|
reduction_l = d(i) .neqv. e(i)
|
|
end do
|
|
|
|
end program openacc_parallel_loop_validity
|