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