flang/test/Integration/debug-cyclic-derived-type-2.f90

   1 ! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck  %s
   2
   3 ! mainly test that this program does not cause an assertion failure
   4 module m
   5  type t2
   6    type(t1), pointer :: p1
   7  end type
   8  type t1
   9    type(t2), pointer :: p2
  10    integer abc
  11  end type
  12  type(t1) :: tee1
  13 end module
  14
  15 program test
  16   use m
  17   type(t2) :: lc2
  18   print *, lc2%p1%abc
  19 end program test
  20
  21 ! CHECK-DAG: DICompositeType(tag: DW_TAG_structure_type, name: "t1"{{.*}})
  22 ! CHECK-DAG: DICompositeType(tag: DW_TAG_structure_type, name: "t2"{{.*}})