1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s
2
3! Test that correct linkage name is generated in the debug info.
4subroutine sub(a)
5 integer :: a
6 return a+1
7end
8
9!CHECK: !DISubprogram(name: "sub", linkageName: "sub_"{{.*}})
10
11