test/DebugInfo/Generic/DICommonBlock.ll

   1 ; REQUIRES: object-emission
   2 ; RUN: %llc_dwarf -O0 -filetype=obj < %s > %t
   3 ; RUN: llvm-dwarfdump -debug-info %t | FileCheck %s
   4 ; CHECK: DW_TAG_common_block
   5 ; CHECK-DAG: DW_AT_name{{.*}}"a"
   6 ; CHECK-DAG: DW_AT_location
   7 ; CHECK: DW_TAG_variable
   8 ; CHECK-DAG: DW_AT_name{{.*}}"c"
   9 ; CHECK-DAG: DW_AT_location{{.*}}DW_OP_plus_uconst{{.*}}4
  10 ; CHECK: {{DW_TAG|NULL}}
  11
  12 target datalayout = "e-m:o-i64:64-f80:128-n8:16:32:64-S128"
  13
  14 @common_a = common global [32 x i8] zeroinitializer, align 8, !dbg !13, !dbg !15
  15
  16 define i32 @subr() !dbg !9 {
  17     %1 = getelementptr inbounds [32 x i8], [32 x i8]* @common_a, i64 0, i32 8
  18     %2 = bitcast i8* %1 to i32*
  19     %3 = load i32, i32* %2
  20     ret i32 %3
  21 }
  22
  23 !llvm.dbg.cu = !{!0}
  24 !llvm.module.flags = !{!6, !7}
  25 !llvm.ident = !{!8}
  26
  27 !0 = distinct !DICompileUnit(language: DW_LANG_Fortran90, file: !1, producer: "PGI Fortran", isOptimized: false, runtimeVersion: 2, emissionKind: FullDebug, retainedTypes: !14, globals: !3)
  28 !1 = !DIFile(filename: "none.f90", directory: "/not/here/")
  29 !2 = distinct !DIGlobalVariable(scope: !5, name: "c", file: !1, type: !12, isDefinition: true)
  30 !3 = !{!13, !15}
  31 !4 = distinct !DIGlobalVariable(scope: !5, name: "COMMON /foo/", file: !1, line: 4, isLocal: false, isDefinition: true, type: !12)
  32 !5 = !DICommonBlock(scope: !9, declaration: !4, name: "a", file: !1, line: 4)
  33 !6 = !{i32 2, !"Dwarf Version", i32 4}
  34 !7 = !{i32 2, !"Debug Info Version", i32 3}
  35 !8 = !{!"PGI Fortran"}
  36 !9 = distinct !DISubprogram(name: "s", scope: !0, file: !1, line: 1, type: !10, isLocal: false, isDefinition: true, unit: !0)
  37 !10 = !DISubroutineType(types: !11)
  38 !11 = !{!12, !12}
  39 !12 = !DIBasicType(name: "int", size: 32)
  40 !13 = !DIGlobalVariableExpression(var: !4, expr: !DIExpression())
  41 !14 = !{!12, !10}
  42 !15 = !DIGlobalVariableExpression(var: !2, expr: !DIExpression(DW_OP_plus_uconst, 4))