test/DebugInfo/Generic/fortran-subprogram-attr.ll

   1 ; REQUIRES: object-emission
   2
   3 ; Test for DISPFlagPure, DISPFlagElement and DISPFlagRecursive.  These
   4 ; three DISPFlags are used to attach DW_AT_pure, DW_AT_element, and
   5 ; DW_AT_recursive attributes to DW_TAG_subprogram DIEs.
   6
   7 ; -- test the resulting DWARF to make sure we're emitting
   8 ; DW_AT_{pure,elemental,recursive}.
   9
  10 ; RUN: %llc_dwarf -O0 -filetype=obj < %s > %t.o
  11 ; RUN: llvm-dwarfdump -v -debug-info %t.o | FileCheck %s
  12
  13 ; CHECK: DW_TAG_subprogram
  14 ; CHECK-DAG: DW_AT_name {{.*}} "subroutine1"
  15 ; CHECK-DAG: DW_AT_pure [DW_FORM_flag_present] (true)
  16 ; CHECK: DW_TAG_subprogram
  17 ; CHECK-DAG: DW_AT_name {{.*}} "subroutine2"
  18 ; CHECK-DAG: DW_AT_elemental [DW_FORM_flag_present] (true)
  19 ; CHECK: DW_TAG_subprogram
  20 ; CHECK-DAG: DW_AT_name {{.*}} "subroutine3"
  21 ; CHECK-DAG: DW_AT_recursive [DW_FORM_flag_present] (true)
  22 ; CHECK: DW_TAG_subprogram
  23 ; CHECK-DAG: DW_AT_name {{.*}} "subroutine4"
  24 ; CHECK-DAG: DW_AT_pure [DW_FORM_flag_present] (true)
  25 ; CHECK-DAG: DW_AT_elemental [DW_FORM_flag_present] (true)
  26 ; CHECK-DAG: DW_AT_recursive [DW_FORM_flag_present] (true)
  27 ; CHECK: {{DW_TAG|NULL}}
  28
  29
  30 ; Function Attrs: noinline nounwind optnone uwtable
  31 define dso_local void @subroutine1() !dbg !7 {
  32 entry:
  33   ret void, !dbg !10
  34 }
  35
  36 ; Function Attrs: noinline nounwind optnone uwtable
  37 define dso_local void @subroutine2() !dbg !11 {
  38 entry:
  39   ret void, !dbg !12
  40 }
  41
  42 ; Function Attrs: noinline nounwind optnone uwtable
  43 define dso_local void @subroutine3() !dbg !13 {
  44 entry:
  45   ret void, !dbg !14
  46 }
  47
  48 ; Function Attrs: noinline nounwind optnone uwtable
  49 define dso_local void @subroutine4() !dbg !15 {
  50 entry:
  51   ret void, !dbg !16
  52 }
  53
  54 !llvm.dbg.cu = !{!0}
  55 !llvm.module.flags = !{!3, !4, !5}
  56 !llvm.ident = !{!6}
  57
  58 !0 = distinct !DICompileUnit(language: DW_LANG_C99, file: !1, producer: "c", isOptimized: false, runtimeVersion: 0, emissionKind: FullDebug, enums: !2, nameTableKind: None)
  59 !1 = !DIFile(filename: "x.f", directory: "/tmp")
  60 !2 = !{}
  61 !3 = !{i32 2, !"Dwarf Version", i32 4}
  62 !4 = !{i32 2, !"Debug Info Version", i32 3}
  63 !5 = !{i32 1, !"wchar_size", i32 4}
  64 !6 = !{!"c"}
  65 !7 = distinct !DISubprogram(name: "subroutine1", scope: !1, file: !1, line: 1, type: !8, scopeLine: 2, spFlags: DISPFlagDefinition | DISPFlagPure, unit: !0, retainedNodes: !2)
  66 !8 = !DISubroutineType(types: !9)
  67 !9 = !{null}
  68 !10 = !DILocation(line: 3, column: 1, scope: !7)
  69 !11 = distinct !DISubprogram(name: "subroutine2", scope: !1, file: !1, line: 5, type: !8, scopeLine: 6, spFlags: DISPFlagDefinition | DISPFlagElemental, unit: !0, retainedNodes: !2)
  70 !12 = !DILocation(line: 7, column: 1, scope: !11)
  71 !13 = distinct !DISubprogram(name: "subroutine3", scope: !1, file: !1, line: 9, type: !8, scopeLine: 10, spFlags: DISPFlagDefinition | DISPFlagRecursive, unit: !0, retainedNodes: !2)
  72 !14 = !DILocation(line: 11, column: 1, scope: !13)
  73 !15 = distinct !DISubprogram(name: "subroutine4", scope: !1, file: !1, line: 13, type: !8, scopeLine: 14, spFlags: DISPFlagDefinition | DISPFlagPure | DISPFlagElemental | DISPFlagRecursive, unit: !0, retainedNodes: !2)
  74 !16 = !DILocation(line: 15, column: 1, scope: !15)