452d7ebc09
The intrinsic procedure table properly classify the various intrinsics, but the PURE and ELEMENTAL attributes that these classifications imply don't always make it to the utility predicates that test symbols for them, leading to spurious error messages in some contexts. So set those attribute flags as appropriate in name resolution, using a new function to isolate the tests. An alternate solution, in which the predicates would query the intrinsic procedure table for these attributes on demand, was something I also tried, so that this information could come directly from an authoritative source; but it would have required references to the intrinsic table to be passed along on too many seemingly unrelated APIs and ended up looking messy. Several symbol table tests needed to have their expected outputs augmented with the PURE and ELEMENTAL flags. Some bogus messages that were flagged as such in test/Semantics/doconcurrent01.f90 were removed, since they are now correctly not emitted. Differential Revision: https://reviews.llvm.org/D96878
252 lines
7.7 KiB
Fortran
252 lines
7.7 KiB
Fortran
! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp
|
|
|
|
! 2.15.1.1 Predetermined rules for associated do-loops index variable
|
|
! a) The loop iteration variable(s) in the associated do-loop(s) of a do,
|
|
! parallel do, taskloop, or distribute construct is (are) private.
|
|
! b) The loop iteration variable in the associated do-loop of a simd construct
|
|
! with just one associated do-loop is linear with a linear-step that is the
|
|
! increment of the associated do-loop.
|
|
! c) The loop iteration variables in the associated do-loops of a simd
|
|
! construct with multiple associated do-loops are lastprivate.
|
|
! d) A loop iteration variable for a sequential loop in a parallel or task
|
|
! generating construct is private in the innermost such construct that
|
|
! encloses the loop.
|
|
! - TBD
|
|
|
|
! All the tests assume that the do-loops association for collapse/ordered
|
|
! clause has been performed (the number of nested do-loops >= n).
|
|
|
|
! Rule a)
|
|
! TODO: nested constructs (k should be private too)
|
|
!DEF: /test_do (Subroutine) Subprogram
|
|
subroutine test_do
|
|
implicit none
|
|
!DEF: /test_do/a ObjectEntity REAL(4)
|
|
real a(20,20,20)
|
|
!DEF: /test_do/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_do/j ObjectEntity INTEGER(4)
|
|
!DEF: /test_do/k ObjectEntity INTEGER(4)
|
|
integer i, j, k
|
|
!$omp parallel
|
|
!REF: /test_do/i
|
|
i = 99
|
|
!$omp do collapse(2)
|
|
!DEF: /test_do/Block1/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,5
|
|
!DEF: /test_do/Block1/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do j=6,10
|
|
!REF: /test_do/a
|
|
a(1,1,1) = 0.
|
|
!DEF: /test_do/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do k=11,15
|
|
!REF: /test_do/a
|
|
!REF: /test_do/Block1/k
|
|
!REF: /test_do/Block1/Block1/j
|
|
!REF: /test_do/Block1/Block1/i
|
|
a(k,j,i) = 1.
|
|
end do
|
|
end do
|
|
end do
|
|
!$omp end parallel
|
|
end subroutine test_do
|
|
|
|
! Rule a)
|
|
!DEF: /test_pardo (Subroutine) Subprogram
|
|
subroutine test_pardo
|
|
implicit none
|
|
!DEF: /test_pardo/a ObjectEntity REAL(4)
|
|
real a(20,20,20)
|
|
!DEF: /test_pardo/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_pardo/j ObjectEntity INTEGER(4)
|
|
!DEF: /test_pardo/k ObjectEntity INTEGER(4)
|
|
integer i, j, k
|
|
!$omp parallel do collapse(2) private(k) ordered(2)
|
|
!DEF: /test_pardo/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,5
|
|
!DEF: /test_pardo/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do j=6,10
|
|
!REF: /test_pardo/a
|
|
a(1,1,1) = 0.
|
|
!DEF: /test_pardo/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do k=11,15
|
|
!REF: /test_pardo/a
|
|
!REF: /test_pardo/Block1/k
|
|
!REF: /test_pardo/Block1/j
|
|
!REF: /test_pardo/Block1/i
|
|
a(k,j,i) = 1.
|
|
end do
|
|
end do
|
|
end do
|
|
end subroutine test_pardo
|
|
|
|
! Rule a)
|
|
!DEF: /test_taskloop (Subroutine) Subprogram
|
|
subroutine test_taskloop
|
|
implicit none
|
|
!DEF: /test_taskloop/a ObjectEntity REAL(4)
|
|
real a(5,5)
|
|
!DEF: /test_taskloop/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_taskloop/j ObjectEntity INTEGER(4)
|
|
integer i, j
|
|
!$omp taskloop private(j)
|
|
!DEF: /test_taskloop/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,5
|
|
!DEF: /test_taskloop/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
!REF: /test_taskloop/Block1/i
|
|
do j=1,i
|
|
!REF: /test_taskloop/a
|
|
!REF: /test_taskloop/Block1/j
|
|
!REF: /test_taskloop/Block1/i
|
|
a(j,i) = 3.14
|
|
end do
|
|
end do
|
|
!$omp end taskloop
|
|
end subroutine test_taskloop
|
|
|
|
! Rule a); OpenMP 4.5 Examples teams.2.f90
|
|
! TODO: reduction; data-mapping attributes
|
|
!DEF: /dotprod (Subroutine) Subprogram
|
|
!DEF: /dotprod/b ObjectEntity REAL(4)
|
|
!DEF: /dotprod/c ObjectEntity REAL(4)
|
|
!DEF: /dotprod/n ObjectEntity INTEGER(4)
|
|
!DEF: /dotprod/block_size ObjectEntity INTEGER(4)
|
|
!DEF: /dotprod/num_teams ObjectEntity INTEGER(4)
|
|
!DEF: /dotprod/block_threads ObjectEntity INTEGER(4)
|
|
subroutine dotprod (b, c, n, block_size, num_teams, block_threads)
|
|
implicit none
|
|
!REF: /dotprod/n
|
|
integer n
|
|
!REF: /dotprod/b
|
|
!REF: /dotprod/n
|
|
!REF: /dotprod/c
|
|
!DEF: /dotprod/sum ObjectEntity REAL(4)
|
|
real b(n), c(n), sum
|
|
!REF: /dotprod/block_size
|
|
!REF: /dotprod/num_teams
|
|
!REF: /dotprod/block_threads
|
|
!DEF: /dotprod/i ObjectEntity INTEGER(4)
|
|
!DEF: /dotprod/i0 ObjectEntity INTEGER(4)
|
|
integer block_size, num_teams, block_threads, i, i0
|
|
!REF: /dotprod/sum
|
|
sum = 0.0e0
|
|
!$omp target map(to:b,c) map(tofrom:sum)
|
|
!$omp teams num_teams(num_teams) thread_limit(block_threads) reduction(+:sum)
|
|
!$omp distribute
|
|
!DEF: /dotprod/Block1/Block1/Block1/i0 (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
!REF: /dotprod/n
|
|
!REF: /dotprod/block_size
|
|
do i0=1,n,block_size
|
|
!$omp parallel do reduction(+:sum)
|
|
!DEF: /dotprod/Block1/Block1/Block1/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
!REF: /dotprod/Block1/Block1/Block1/i0
|
|
!DEF: /dotprod/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /dotprod/block_size
|
|
!REF: /dotprod/n
|
|
do i=i0,min(i0+block_size, n)
|
|
!REF: /dotprod/sum
|
|
!REF: /dotprod/b
|
|
!REF: /dotprod/Block1/Block1/Block1/Block1/i
|
|
!REF: /dotprod/c
|
|
sum = sum+b(i)*c(i)
|
|
end do
|
|
end do
|
|
!$omp end teams
|
|
!$omp end target
|
|
!REF: /dotprod/sum
|
|
print *, sum
|
|
end subroutine dotprod
|
|
|
|
! Rule b)
|
|
! TODO: nested constructs (j, k should be private too)
|
|
!DEF: /test_simd (Subroutine) Subprogram
|
|
subroutine test_simd
|
|
implicit none
|
|
!DEF: /test_simd/a ObjectEntity REAL(4)
|
|
real a(20,20,20)
|
|
!DEF: /test_simd/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_simd/j ObjectEntity INTEGER(4)
|
|
!DEF: /test_simd/k ObjectEntity INTEGER(4)
|
|
integer i, j, k
|
|
!$omp parallel do simd
|
|
!DEF: /test_simd/Block1/i (OmpLinear, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,5
|
|
!DEF: /test_simd/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do j=6,10
|
|
!DEF: /test_simd/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do k=11,15
|
|
!REF: /test_simd/a
|
|
!REF: /test_simd/Block1/k
|
|
!REF: /test_simd/Block1/j
|
|
!REF: /test_simd/Block1/i
|
|
a(k,j,i) = 3.14
|
|
end do
|
|
end do
|
|
end do
|
|
end subroutine test_simd
|
|
|
|
! Rule c)
|
|
!DEF: /test_simd_multi (Subroutine) Subprogram
|
|
subroutine test_simd_multi
|
|
implicit none
|
|
!DEF: /test_simd_multi/a ObjectEntity REAL(4)
|
|
real a(20,20,20)
|
|
!DEF: /test_simd_multi/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_simd_multi/j ObjectEntity INTEGER(4)
|
|
!DEF: /test_simd_multi/k ObjectEntity INTEGER(4)
|
|
integer i, j, k
|
|
!$omp parallel do simd collapse(3)
|
|
!DEF: /test_simd_multi/Block1/i (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,5
|
|
!DEF: /test_simd_multi/Block1/j (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do j=6,10
|
|
!DEF: /test_simd_multi/Block1/k (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do k=11,15
|
|
!REF: /test_simd_multi/a
|
|
!REF: /test_simd_multi/Block1/k
|
|
!REF: /test_simd_multi/Block1/j
|
|
!REF: /test_simd_multi/Block1/i
|
|
a(k,j,i) = 3.14
|
|
end do
|
|
end do
|
|
end do
|
|
end subroutine test_simd_multi
|
|
|
|
! Rule d)
|
|
!DEF: /test_seq_loop (Subroutine) Subprogram
|
|
subroutine test_seq_loop
|
|
implicit none
|
|
!DEF: /test_seq_loop/i ObjectEntity INTEGER(4)
|
|
!DEF: /test_seq_loop/j ObjectEntity INTEGER(4)
|
|
integer i, j
|
|
!REF: /test_seq_loop/i
|
|
i = -1
|
|
!REF: /test_seq_loop/j
|
|
j = -1
|
|
!$omp parallel
|
|
!REF: /test_seq_loop/i
|
|
!REF: /test_seq_loop/j
|
|
print *, i, j
|
|
!$omp parallel
|
|
!REF: /test_seq_loop/i
|
|
!DEF: /test_seq_loop/Block1/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
print *, i, j
|
|
!$omp do
|
|
!DEF: /test_seq_loop/Block1/Block1/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!REF: /test_seq_loop/Block1/Block1/j
|
|
do j=1,10
|
|
end do
|
|
end do
|
|
!REF: /test_seq_loop/i
|
|
!REF: /test_seq_loop/Block1/Block1/j
|
|
print *, i, j
|
|
!$omp end parallel
|
|
!REF: /test_seq_loop/i
|
|
!REF: /test_seq_loop/j
|
|
print *, i, j
|
|
!$omp end parallel
|
|
!REF: /test_seq_loop/i
|
|
!REF: /test_seq_loop/j
|
|
print *, i, j
|
|
end subroutine test_seq_loop
|