17 lines · plain
1! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck %s2! Ensure that DATA-style default component /initializers/ are processed3! before they are needed to handle EQUIVALENCE'd storage.4type t5 sequence6 integer :: j(10) /1,2,3,4,5,6,7,8,9,10/7end type8type(t) :: A9integer arr(10)10equivalence (A, arr)11end12 13!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]14!CHECK: a size=40 offset=0: ObjectEntity type: TYPE(t)15!CHECK: arr size=40 offset=0: ObjectEntity type: INTEGER(4) shape: 1_8:10_816!CHECK: Equivalence Sets: (a,arr(1)) (.F18.0,a)17