14 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2program main3 type t4 integer, allocatable :: ia(:)5 end type6 type(t) x7 integer, allocatable :: ja(:)8 allocate(ja(2:2))9 ja(2) = 210 !CHECK: x=t(ia=(ja))11 x = t(+ja) ! must be t(ia=(ja)), not t(ia=ja)12 print *, lbound(x%ia) ! must be 1, not 213end14