! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck %s
! Ensure that DATA-style default component /initializers/ are processed
! before they are needed to handle EQUIVALENCE'd storage.
type t
  sequence
  integer :: j(10) /1,2,3,4,5,6,7,8,9,10/
end type
type(t) :: A
integer arr(10)
equivalence (A, arr)
end

!CHECK: .F18.0, SAVE (CompilerCreated) size=40 offset=0: ObjectEntity type: INTEGER(4) shape: 1_8:10_8 init:[INTEGER(4)::1_4,2_4,3_4,4_4,5_4,6_4,7_4,8_4,9_4,10_4]
!CHECK: a size=40 offset=0: ObjectEntity type: TYPE(t)
!CHECK: arr size=40 offset=0: ObjectEntity type: INTEGER(4) shape: 1_8:10_8
!CHECK: Equivalence Sets: (a,arr(1)) (.F18.0,a)