46 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s2 3! Test symbols generated in block constructs in the 4! presence of `default(...)` clause5 6program sample7 !CHECK: a size=4 offset=20: ObjectEntity type: INTEGER(4)8 !CHECK: k size=4 offset=16: ObjectEntity type: INTEGER(4)9 !CHECK: w size=4 offset=12: ObjectEntity type: INTEGER(4)10 !CHECK: x size=4 offset=0: ObjectEntity type: INTEGER(4)11 !CHECK: y size=4 offset=4: ObjectEntity type: INTEGER(4)12 !CHECK: z size=4 offset=8: ObjectEntity type: INTEGER(4)13 integer x, y, z, w, k, a 14 !$omp parallel firstprivate(x) private(y) shared(w) default(private)15 !CHECK: OtherConstruct scope: size=0 alignment=116 !CHECK: a (OmpPrivate): HostAssoc17 !CHECK: k (OmpPrivate): HostAssoc18 !CHECK: x (OmpFirstPrivate, OmpExplicit): HostAssoc19 !CHECK: y (OmpPrivate, OmpExplicit): HostAssoc20 !CHECK: z (OmpPrivate): HostAssoc21 !$omp parallel default(private)22 !CHECK: OtherConstruct scope: size=0 alignment=123 !CHECK: a (OmpPrivate): HostAssoc24 !CHECK: x (OmpPrivate): HostAssoc25 !CHECK: y (OmpPrivate): HostAssoc26 y = 2027 x = 1028 !$omp parallel29 !CHECK: OtherConstruct scope: size=0 alignment=130 a = 1031 !$omp end parallel32 !$omp end parallel 33 34 !$omp parallel default(firstprivate) shared(y) private(w)35 !CHECK: OtherConstruct scope: size=0 alignment=136 !CHECK: k (OmpFirstPrivate): HostAssoc37 !CHECK: w (OmpPrivate, OmpExplicit): HostAssoc38 !CHECK: z (OmpFirstPrivate): HostAssoc39 y = 3040 w = 40 41 z = 50 42 k = 4043 !$omp end parallel44 !$omp end parallel 45end program sample46