! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck  %s

! Test that correct linkage name is generated in the debug info.
subroutine sub(a)
  integer :: a
  return a+1
end

!CHECK: !DISubprogram(name: "sub", linkageName: "sub_"{{.*}})