23 lines · plain
1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s2 3XFAIL: *4 5! Test that debug info for arrays with non constant extent is different from6! assumed size arrays.7 8module helper9 implicit none10 contains11 subroutine fn (a1, n)12 integer n13 integer a1(5, n)14 print *, a1(1,1)15 end subroutine fn16end module helper17 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]] = !DILocalVariable23