1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s 2 3XFAIL: * 4 5! Test that debug info for arrays with non constant extent is different from 6! assumed size arrays. 7 8module 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 16end 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 23