求教：C++调用Fortran静态库链接错误问题

fcode

[Fortran] 纯文本查看 复制代码

subroutine SUBWITHOUTPARA() Bind(C,Name="SUBWITHOUTPARA")
  implicit none
  write(*,*) "In subWithoutPara"
  return
end subroutine

[C++] 纯文本查看 复制代码

#include "pch.h"
extern "C" {
void SUBWITHOUTPARA();
}
int main(void)
{
        int a = 10;
        SUBWITHOUTPARA();
        return 0;
}