1; RUN: opt -instcombine -S -o - < %s | FileCheck %s
2
3; CHECK-LABEL: %4 = load i32, i32* %i1_311
4; CHECK: call void @llvm.dbg.value(metadata i32 %4
5; Next instruction should not be duplicate dbg.value intrinsic.
6; CHECK-NEXT: @f90io_sc_i_ldw
7
8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9;program main
10;integer :: res
11; res = mfun()
12; print *, res
13;contains
14; function mfun()
15;  integer :: i1
16;  i1 = 5
17;  mfun = fun(i1)
18;  write (*,*) i1
19; end function
20; function fun(a)
21;    integer, intent (in) :: a
22;    fun = a
23; end function
24;end program main
25;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26
27; ModuleID = 'duplicate_dbgvalue.ll'
28source_filename = "duplicate_dbgvalue.ll"
29target datalayout = "e-p:64:64-i64:64-f80:128-n8:16:32:64-S128"
30target triple = "x86_64-unknown-linux-gnu"
31
32%struct.BSS1 = type <{ [4 x i8] }>
33
34@.BSS1 = internal unnamed_addr global %struct.BSS1 zeroinitializer, align 32, !dbg !0
35@.C303_MAIN_ = internal constant i32 6
36@.C300_MAIN_ = internal constant [22 x i8] c"duplicate_dbgvalue.f90"
37@.C302_MAIN_ = internal constant i32 4
38@.C283_MAIN_ = internal constant i32 0
39@.C283_main_mfun = internal constant i32 0
40@.C302_main_mfun = internal constant i32 6
41@.C300_main_mfun = internal constant [22 x i8] c"duplicate_dbgvalue.f90"
42@.C313_main_mfun = internal constant i32 10
43
44define void @MAIN_() local_unnamed_addr !dbg !2 {
45L.entry:
46  call void (i8*, ...) bitcast (void (...)* @fort_init to void (i8*, ...)*)(i8* bitcast (i32* @.C283_MAIN_ to i8*)), !dbg !16
47  %0 = call fastcc i32 @main_mfun(), !dbg !18
48  store i32 %0, i32* bitcast (%struct.BSS1* @.BSS1 to i32*), align 32, !dbg !18
49  call void (i8*, i8*, i64, ...) bitcast (void (...)* @f90io_src_info03a to void (i8*, i8*, i64, ...)*)(i8* bitcast (i32* @.C302_MAIN_ to i8*), i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.C300_MAIN_, i64 0, i64 0), i64 22), !dbg !23
50  %1 = call i32 (i8*, i8*, i8*, i8*, ...) bitcast (i32 (...)* @f90io_print_init to i32 (i8*, i8*, i8*, i8*, ...)*)(i8* bitcast (i32* @.C303_MAIN_ to i8*), i8* null, i8* bitcast (i32* @.C283_MAIN_ to i8*), i8* bitcast (i32* @.C283_MAIN_ to i8*)), !dbg !23
51  call void @llvm.dbg.value(metadata i32 %1, metadata !24, metadata !DIExpression()), !dbg !25
52  %2 = load i32, i32* bitcast (%struct.BSS1* @.BSS1 to i32*), align 32, !dbg !23
53  %3 = call i32 (i32, i32, ...) bitcast (i32 (...)* @f90io_sc_i_ldw to i32 (i32, i32, ...)*)(i32 %2, i32 25), !dbg !23
54  call void @llvm.dbg.value(metadata i32 %3, metadata !24, metadata !DIExpression()), !dbg !25
55  %4 = call i32 (...) @f90io_ldw_end(), !dbg !23
56  call void @llvm.dbg.value(metadata i32 %4, metadata !24, metadata !DIExpression()), !dbg !25
57  ret void, !dbg !26
58}
59
60define internal fastcc signext i32 @main_mfun() unnamed_addr !dbg !27 {
61L.entry:
62  %i1_311 = alloca i32, align 4
63  call void @llvm.dbg.declare(metadata i64* undef, metadata !31, metadata !DIExpression()), !dbg !33
64  call void @llvm.dbg.declare(metadata i32* %i1_311, metadata !35, metadata !DIExpression()), !dbg !33
65  store i32 5, i32* %i1_311, align 4, !dbg !36
66  %0 = bitcast i32* %i1_311 to i64*, !dbg !41
67  %1 = call fastcc float @main_fun(i64* %0), !dbg !41
68  %2 = fptosi float %1 to i32, !dbg !41
69  call void (i8*, i8*, i64, ...) bitcast (void (...)* @f90io_src_info03a to void (i8*, i8*, i64, ...)*)(i8* bitcast (i32* @.C313_main_mfun to i8*), i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.C300_main_mfun, i32 0, i32 0), i64 22), !dbg !42
70  %3 = call i32 (i8*, i8*, i8*, i8*, ...) bitcast (i32 (...)* @f90io_print_init to i32 (i8*, i8*, i8*, i8*, ...)*)(i8* bitcast (i32* @.C302_main_mfun to i8*), i8* null, i8* bitcast (i32* @.C283_main_mfun to i8*), i8* bitcast (i32* @.C283_main_mfun to i8*)), !dbg !42
71  call void @llvm.dbg.value(metadata i32 %3, metadata !43, metadata !DIExpression()), !dbg !33
72  %4 = load i32, i32* %i1_311, align 4, !dbg !42
73  call void @llvm.dbg.value(metadata i32 %4, metadata !35, metadata !DIExpression()), !dbg !33
74  %5 = call i32 (i32, i32, ...) bitcast (i32 (...)* @f90io_sc_i_ldw to i32 (i32, i32, ...)*)(i32 %4, i32 25), !dbg !42
75  call void @llvm.dbg.value(metadata i32 %5, metadata !43, metadata !DIExpression()), !dbg !33
76  %6 = call i32 (...) @f90io_ldw_end(), !dbg !42
77  call void @llvm.dbg.value(metadata i32 %6, metadata !43, metadata !DIExpression()), !dbg !33
78  ret i32 %2, !dbg !44
79}
80
81define internal fastcc float @main_fun(i64* noalias %a) unnamed_addr !dbg !45 {
82L.entry:
83  call void @llvm.dbg.declare(metadata i64* %a, metadata !50, metadata !DIExpression()), !dbg !51
84  call void @llvm.dbg.declare(metadata i64* undef, metadata !53, metadata !DIExpression()), !dbg !51
85  %0 = bitcast i64* %a to i32*, !dbg !54
86  %1 = load i32, i32* %0, align 4, !dbg !54
87  %2 = sitofp i32 %1 to float, !dbg !54
88  ret float %2, !dbg !59
89}
90
91declare signext i32 @f90io_ldw_end(...) local_unnamed_addr
92
93declare signext i32 @f90io_sc_i_ldw(...) local_unnamed_addr
94
95; Function Attrs: nounwind readnone speculatable willreturn
96declare void @llvm.dbg.declare(metadata, metadata, metadata)
97
98declare signext i32 @f90io_print_init(...) local_unnamed_addr
99
100declare void @f90io_src_info03a(...) local_unnamed_addr
101
102declare void @fort_init(...) local_unnamed_addr
103
104; Function Attrs: nounwind readnone speculatable willreturn
105declare void @llvm.dbg.value(metadata, metadata, metadata)
106
107!llvm.module.flags = !{!14, !15}
108!llvm.dbg.cu = !{!4}
109
110!0 = !DIGlobalVariableExpression(var: !1, expr: !DIExpression())
111!1 = distinct !DIGlobalVariable(name: "res", scope: !2, file: !3, type: !9, isLocal: true, isDefinition: true)
112!2 = distinct !DISubprogram(name: "main", scope: !4, file: !3, line: 1, type: !12, scopeLine: 1, spFlags: DISPFlagDefinition | DISPFlagMainSubprogram, unit: !4)
113!3 = !DIFile(filename: "duplicate-dbgvalue.f90", directory: "/dir")
114!4 = distinct !DICompileUnit(language: DW_LANG_Fortran90, file: !3, producer: " F90 Flang - 1.5", isOptimized: false, runtimeVersion: 0, emissionKind: FullDebug, enums: !5, retainedTypes: !5, globals: !6, imports: !5)
115!5 = !{}
116!6 = !{!0, !7, !10}
117!7 = !DIGlobalVariableExpression(var: !8, expr: !DIExpression())
118!8 = distinct !DIGlobalVariable(name: "res", scope: !4, file: !3, type: !9, isLocal: true, isDefinition: true)
119!9 = !DIBasicType(name: "integer", size: 32, align: 32, encoding: DW_ATE_signed)
120!10 = !DIGlobalVariableExpression(var: !11, expr: !DIExpression())
121!11 = distinct !DIGlobalVariable(name: "res", scope: !4, file: !3, type: !9, isLocal: true, isDefinition: true)
122!12 = !DISubroutineType(cc: DW_CC_program, types: !13)
123!13 = !{null}
124!14 = !{i32 2, !"Dwarf Version", i32 4}
125!15 = !{i32 2, !"Debug Info Version", i32 3}
126!16 = !DILocation(line: 1, column: 1, scope: !17)
127!17 = !DILexicalBlock(scope: !2, file: !3, line: 1, column: 1)
128!18 = !DILocation(line: 3, column: 1, scope: !17)
129!19 = !{!20, !20, i64 0}
130!20 = !{!"t1.2", !21, i64 0}
131!21 = !{!"unlimited ptr", !22, i64 0}
132!22 = !{!"Flang FAA 1"}
133!23 = !DILocation(line: 4, column: 1, scope: !17)
134!24 = !DILocalVariable(scope: !17, file: !3, type: !9, flags: DIFlagArtificial)
135!25 = !DILocation(line: 0, scope: !17)
136!26 = !DILocation(line: 5, column: 1, scope: !17)
137!27 = distinct !DISubprogram(name: "mfun", scope: !2, file: !3, line: 6, type: !28, scopeLine: 6, spFlags: DISPFlagLocalToUnit | DISPFlagDefinition, unit: !4)
138!28 = !DISubroutineType(types: !29)
139!29 = !{!30}
140!30 = !DIDerivedType(tag: DW_TAG_pointer_type, baseType: !9, size: 64, align: 64)
141!31 = !DILocalVariable(arg: 1, scope: !27, file: !3, type: !32, flags: DIFlagArtificial)
142!32 = !DIBasicType(name: "uinteger*8", size: 64, align: 64, encoding: DW_ATE_unsigned)
143!33 = !DILocation(line: 0, scope: !34)
144!34 = !DILexicalBlock(scope: !27, file: !3, line: 6, column: 1)
145!35 = !DILocalVariable(name: "i1", scope: !34, file: !3, type: !9)
146!36 = !DILocation(line: 8, column: 1, scope: !34)
147!37 = !{!38, !38, i64 0}
148!38 = !{!"t2.2", !39, i64 0}
149!39 = !{!"unlimited ptr", !40, i64 0}
150!40 = !{!"Flang FAA 2"}
151!41 = !DILocation(line: 9, column: 1, scope: !34)
152!42 = !DILocation(line: 10, column: 1, scope: !34)
153!43 = !DILocalVariable(scope: !34, file: !3, type: !9, flags: DIFlagArtificial)
154!44 = !DILocation(line: 11, column: 1, scope: !34)
155!45 = distinct !DISubprogram(name: "fun", scope: !2, file: !3, line: 12, type: !46, scopeLine: 12, spFlags: DISPFlagLocalToUnit | DISPFlagDefinition, unit: !4)
156!46 = !DISubroutineType(types: !47)
157!47 = !{!48, !9}
158!48 = !DIDerivedType(tag: DW_TAG_pointer_type, baseType: !49, size: 64, align: 64)
159!49 = !DIBasicType(name: "real", size: 32, align: 32, encoding: DW_ATE_float)
160!50 = !DILocalVariable(name: "a", arg: 1, scope: !45, file: !3, type: !9)
161!51 = !DILocation(line: 0, scope: !52)
162!52 = !DILexicalBlock(scope: !45, file: !3, line: 12, column: 1)
163!53 = !DILocalVariable(arg: 2, scope: !45, file: !3, type: !32, flags: DIFlagArtificial)
164!54 = !DILocation(line: 14, column: 1, scope: !52)
165!55 = !{!56, !56, i64 0}
166!56 = !{!"t3.2", !57, i64 0}
167!57 = !{!"unlimited ptr", !58, i64 0}
168!58 = !{!"Flang FAA 3"}
169!59 = !DILocation(line: 15, column: 1, scope: !52)
170