14 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s2program bug3 integer, target :: ita(2) = [1,2], itb(2) = [3,4], itc(2) = [5,6]4 type t15 integer, pointer :: p1(:) => ita, p2(:) => itb6 end type7 type t28 !CHECK: TYPE(t1) :: comp = t1(p1=itc,p2=itb)9 type(t1) :: comp = t1(itc)10 end type11 integer, pointer :: p3(:) => itd12 integer, target :: itd(2) = [7,8]13end14