23 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 failure4module m5 type t26 type(t1), pointer :: p17 end type8 type t19 type(t2), pointer :: p210 integer abc11 end type12 type(t1) :: tee113end module14 15program test16 use m17 type(t2) :: lc218 print *, lc2%p1%abc19end program test20 21! CHECK-DAG: DICompositeType(tag: DW_TAG_structure_type, name: "t1"{{.*}})22! CHECK-DAG: DICompositeType(tag: DW_TAG_structure_type, name: "t2"{{.*}})23