83c1cf6251
When a common block appears in firstprivate, its contents become host associations, which the symbol offset computation code for equivalences wasn't expecting. Add a GetUltimate() call, and extend symbol dumping for HostAssocDetails.
20 lines
950 B
Fortran
20 lines
950 B
Fortran
!RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp %s | FileCheck %s
|
|
|
|
subroutine sub
|
|
common /block/ a
|
|
equivalence (b,c), (d,e), (a,f)
|
|
!$omp parallel firstprivate(/block/)
|
|
!$omp end parallel
|
|
end subroutine
|
|
|
|
!CHECK: a (Implicit, InCommonBlock) size=4 offset=0: ObjectEntity type: REAL(4)
|
|
!CHECK: b (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)
|
|
!CHECK: c (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)
|
|
!CHECK: d (Implicit) size=4 offset=4: ObjectEntity type: REAL(4)
|
|
!CHECK: e (Implicit) size=4 offset=4: ObjectEntity type: REAL(4)
|
|
!CHECK: f (Implicit) size=4 offset=0: ObjectEntity type: REAL(4)
|
|
!CHECK: sub (Subroutine): HostAssoc => sub (Subroutine): Subprogram ()
|
|
!CHECK: Equivalence Sets: (b,c) (d,e) (a,f)
|
|
!CHECK: block size=4 offset=0: CommonBlockDetails alignment=4: a
|
|
!CHECK: OtherConstruct scope:
|
|
!CHECK: a (OmpFirstPrivate, OmpExplicit): HostAssoc => a (Implicit, InCommonBlock) size=4 offset=0: ObjectEntity type: REAL(4)
|