flang/test/Integration/debug-assumed-size-array-2.f90

   1 ! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck  %s
   2
   3 XFAIL: *
   4
   5 ! Test that debug info for arrays with non constant extent is different from
   6 ! assumed size arrays.
   7
   8 module helper
   9   implicit none
  10   contains
  11   subroutine fn (a1, n)
  12     integer n
  13     integer  a1(5, n)
  14     print *, a1(1,1)
  15   end subroutine fn
  16 end module helper
  17
  18 ! CHECK-DAG: ![[TY1:[0-9]+]] = !DICompositeType(tag: DW_TAG_array_type{{.*}}elements: ![[ELEMS1:[0-9]+]]{{.*}})
  19 ! CHECK-DAG: ![[ELEMS1]] = !{![[ELM1:[0-9]+]], ![[ELM2:[0-9]+]]}
  20 ! CHECK-DAG: ![[ELM1]] = !DISubrange(count: 5, lowerBound: 1)
  21 ! CHECK-DAG: ![[ELM2]] = !DISubrange(count: [[VAR:[0-9]+]], lowerBound: 1)
  22 ! CHECK-DAG: ![[VAR]] = !DILocalVariable