| ! 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) |