37 lines · plain
1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s2 3! mainly test that this program does not cause an assertion failure4! testcase for issue 1220245 6module m17 type t18 type(t2),pointer :: x19 end type10 type t211 type(t3),pointer :: x212 end type13 type t314 type(t1),pointer :: x315 end type16end17 18program test19 use m120 type(t1),pointer :: foo, foo221 allocate(foo)22 allocate(foo%x1)23 allocate(foo%x1%x2)24 allocate(foo%x1%x2%x3)25 call sub1(foo%x1)26 print *,'done'27end program28 29subroutine sub1(bar)30 use m131 type(t2) :: bar32end subroutine33 34! Test that file compiles ok and there is only one DICompositeType for "t1".35!CHECK: !DICompositeType(tag: DW_TAG_structure_type, name: "t1"{{.*}})36!CHECK-NOT: !DICompositeType(tag: DW_TAG_structure_type, name: "t1"{{.*}})37