aac1f85393
Before this change, OmpShared was not always set in shared symbols. Instead, absence of private flags was interpreted as shared DSA. The problem was that symbols with no flags, with only a host association, could also mean "has same DSA as in the enclosing context". Now shared symbols behave the same as private and can be treated the same way. Because of the host association symbols with no flags mentioned above, it was also incorrect to simply test the flags of a given symbol to find out if it was private or shared. The function GetSymbolDSA() was added to fix this. It would be better to avoid the need of these special symbols, but this would require changes to how symbols are collected in lowering. Besides that, some semantic checks need to know if a DSA clause was used or not. To avoid confusing implicit symbols with DSA clauses a new flag was added: OmpExplicit. It is now set for all symbols with explicitly determined data-sharing attributes. With the changes above, AddToContextObjectWithDSA() and the symbol to DSA map could probably be removed and the DSA could be obtained directly from the symbol, but this was not attempted. Some debug messages were also added, with the "omp" DEBUG_TYPE, to make it easier to debug the creation of implicit symbols and to visualize all associations of a given symbol. Fixes #130533 Fixes #140882
64 lines
2.6 KiB
Fortran
64 lines
2.6 KiB
Fortran
! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
|
|
! OpenMP Version 4.5
|
|
! 2.15.3.6 Reduction Clause Positive cases
|
|
|
|
!DEF: /omp_reduction MainProgram
|
|
program omp_reduction
|
|
!DEF: /omp_reduction/i ObjectEntity INTEGER(4)
|
|
integer i
|
|
!DEF: /omp_reduction/k ObjectEntity INTEGER(4)
|
|
integer :: k = 10
|
|
!DEF: /omp_reduction/m ObjectEntity INTEGER(4)
|
|
integer :: m = 12
|
|
!$omp parallel do reduction(max:k)
|
|
!DEF: /omp_reduction/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/OtherConstruct1/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/max ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!DEF: /omp_reduction/OtherConstruct1/m (OmpShared) HostAssoc INTEGER(4)
|
|
k = max(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(min:k)
|
|
!DEF: /omp_reduction/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/OtherConstruct2/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!DEF: /omp_reduction/OtherConstruct2/m (OmpShared) HostAssoc INTEGER(4)
|
|
k = min(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(iand:k)
|
|
!DEF: /omp_reduction/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/OtherConstruct3/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/iand ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!DEF: /omp_reduction/OtherConstruct3/m (OmpShared) HostAssoc INTEGER(4)
|
|
k = iand(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(ior:k)
|
|
!DEF: /omp_reduction/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/OtherConstruct4/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/ior ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!DEF: /omp_reduction/OtherConstruct4/m (OmpShared) HostAssoc INTEGER(4)
|
|
k = ior(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(ieor:k)
|
|
!DEF: /omp_reduction/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/OtherConstruct5/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/ieor ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!DEF: /omp_reduction/OtherConstruct5/m (OmpShared) HostAssoc INTEGER(4)
|
|
k = ieor(k,m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
end program omp_reduction
|