21 lines · plain
1!RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp %s | FileCheck %s2 3subroutine sub4 common /block/ a5 equivalence (b,c), (d,e), (a,f)6!$omp parallel firstprivate(/block/)7!$omp end parallel8end subroutine9 10!CHECK: a (Implicit, InCommonBlock) size=4 offset=0: ObjectEntity type: REAL(4)11!CHECK: b (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)12!CHECK: c (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)13!CHECK: d (Implicit) size=4 offset=4: ObjectEntity type: REAL(4)14!CHECK: e (Implicit) size=4 offset=4: ObjectEntity type: REAL(4)15!CHECK: f (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)16!CHECK: sub (Subroutine): HostAssoc => sub (Subroutine): Subprogram ()17!CHECK: Equivalence Sets: (b,c) (d,e) (a,f)18!CHECK: block size=4 offset=0: CommonBlockDetails alignment=4: a19!CHECK: OtherConstruct scope:20!CHECK: a (OmpFirstPrivate, OmpExplicit): HostAssoc => a (Implicit, InCommonBlock) size=4 offset=0: ObjectEntity type: REAL(4)21