求助：关于彭国伦fortran95上用fortran调用c例题

fcode

D:\OurDoc\Desktop\sdw>cl -c a.c -nologo
a.c

D:\OurDoc\Desktop\sdw>ifort f.f90 a.obj -nologo

D:\OurDoc\Desktop\sdw>f
10
10

D:\OurDoc\Desktop\sdw>

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

module cprog
  interface
    subroutine SUBA(a) Bind(C,Name="sub1")
        integer(8) :: a
        end subroutine
    subroutine SUBB(a) Bind(C,Name="sub2")
        integer(8) , value:: a
        end subroutine
  end interface
end module cprog

program main
  use cprog
  implicit none
  integer(8)  :: a=10

  call SUBA(a)
  call SUBB(a)

  stop
end program

fcode

我亲自测了是OK的，你遇到问题的话，应该是一些地方没有设置正确，或者操作上有问题。

论坛里对于操作问题不是很容易沟通，你可以加我们的QQ群：2338021，找我（臭石头雪球）