| !RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s | |
| type child | |
| integer, pointer :: id | |
| end type | |
| integer, parameter :: n = 5 | |
| integer, save, target :: t1(n) | |
| type(child) :: t2(n) = [(child(t1(i)), i=1,n)] | |
| !CHECK: TYPE(child) :: t2(5_4) = [child::child(id=t1(1_8)),child(id=t1(2_8)),child(id=t1(3_8)),child(id=t1(4_8)),child(id=t1(5_8))] | |
| end |