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