58c3f20bbf
Allow the lit test suite to run under Windows. This encompasses the following changes: * Define `lit_tools_dir` for flang's test configuration * Replace `(<command> || true)` idiom with `not <command>` * Add `REQUIRES: shell` on tests that invoke a shell script Reviewed By: awarzynski Differential Revision: https://reviews.llvm.org/D89368
124 lines
2.6 KiB
Fortran
124 lines
2.6 KiB
Fortran
! RUN: %S/../test_errors.sh %s %t %flang -fopenacc
|
|
! REQUIRES: shell
|
|
|
|
! 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
|