! 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_"{{.*}}) | |