435feefbdd
This patch adds lowering support for default clause. 1. During symbol resolution in semantics, should the enclosing context have a default data sharing clause defined and a `parser::Name` is not attached to an explicit data sharing clause, the `semantics::Symbol::Flag::OmpPrivate` flag (in case of default(private)) and `semantics::Symbol::Flag::OmpFirstprivate` flag (in case of default(firstprivate)) is added to the symbol. 2. During lowering, all symbols having either `semantics::Symbol::Flag::OmpPrivate` or `semantics::Symbol::Flag::OmpFirstprivate` flag are collected and privatised appropriately. Co-authored-by: Peixin Qiao <qiaopeixin@huawei.com> Reviewed by: peixin Differential Revision: https://reviews.llvm.org/D123930
46 lines
1.7 KiB
Fortran
46 lines
1.7 KiB
Fortran
! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
|
|
|
|
! Test symbols generated in block constructs in the
|
|
! presence of `default(...)` clause
|
|
|
|
program sample
|
|
!CHECK: a size=4 offset=20: ObjectEntity type: INTEGER(4)
|
|
!CHECK: k size=4 offset=16: ObjectEntity type: INTEGER(4)
|
|
!CHECK: w size=4 offset=12: ObjectEntity type: INTEGER(4)
|
|
!CHECK: x size=4 offset=0: ObjectEntity type: INTEGER(4)
|
|
!CHECK: y size=4 offset=4: ObjectEntity type: INTEGER(4)
|
|
!CHECK: z size=4 offset=8: ObjectEntity type: INTEGER(4)
|
|
integer x, y, z, w, k, a
|
|
!$omp parallel firstprivate(x) private(y) shared(w) default(private)
|
|
!CHECK: OtherConstruct scope: size=0 alignment=1
|
|
!CHECK: a (OmpPrivate): HostAssoc
|
|
!CHECK: k (OmpPrivate): HostAssoc
|
|
!CHECK: x (OmpFirstPrivate): HostAssoc
|
|
!CHECK: y (OmpPrivate): HostAssoc
|
|
!CHECK: z (OmpPrivate): HostAssoc
|
|
!$omp parallel default(private)
|
|
!CHECK: OtherConstruct scope: size=0 alignment=1
|
|
!CHECK: a (OmpPrivate): HostAssoc
|
|
!CHECK: x (OmpPrivate): HostAssoc
|
|
!CHECK: y (OmpPrivate): HostAssoc
|
|
y = 20
|
|
x = 10
|
|
!$omp parallel
|
|
!CHECK: OtherConstruct scope: size=0 alignment=1
|
|
a = 10
|
|
!$omp end parallel
|
|
!$omp end parallel
|
|
|
|
!$omp parallel default(firstprivate) shared(y) private(w)
|
|
!CHECK: OtherConstruct scope: size=0 alignment=1
|
|
!CHECK: k (OmpFirstPrivate): HostAssoc
|
|
!CHECK: w (OmpPrivate): HostAssoc
|
|
!CHECK: z (OmpFirstPrivate): HostAssoc
|
|
y = 30
|
|
w = 40
|
|
z = 50
|
|
k = 40
|
|
!$omp end parallel
|
|
!$omp end parallel
|
|
end program sample
|