反复从Fortran调用C函数时出现分段错误

Question

I have a Fortran 90 program which repeatedly calls on a C function. The first time the function is used all goes well, but the second time the code tries to access the function it gives the following error:

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

I am using gfortran v.4.6 on windows, linking to a library to which I have no source code. The library came to me as a DLL and I used gendef and dlltool to create an .a library to link to.

The code looks like:

PROGRAM cmod
  USE, INTRINSIC :: ISO_C_BINDING
  INTERFACE
    LOGICAL (C_BOOL) FUNCTION clover(scen,reg,soil,top,rain,depth,numd,nums,numb, numd,addn,srate,stype,nloss,ploss,ErrStr) BIND (C, name = "ClOvr")

    USE, INTRINSIC :: ISO_C_BINDING
    INTEGER (C_INT), INTENT(IN), VALUE :: scen,reg,soil,topo,depth

    REAL (C_DOUBLE), INTENT(IN), VALUE :: rain,numd,nums,numb,numd

    REAL (C_DOUBLE), INTENT(IN), VALUE :: addn,srate
    INTEGER (C_INT), INTENT(IN), VALUE :: stype
    REAL (C_DOUBLE), INTENT(OUT) :: nloss,ploss
    CHARACTER(C_CHAR), INTENT(OUT) :: ErrStr(*)
    END FUNCTION clover
  END INTERFACE
  .....

  do
  .....
    result = clover(a,b,c, d, e, f, g, h, sb, sd, an, sr, st,lossx,lossy,err)
  ......
    result = clover(a,b,c, d, e, f, g, h, sb, sd, an, sr, st,lossx,lossy,err)
  end do
END PROGRAM cmod

I don't have the C code, but I am porting from IBM Fortran.

The interface declaration contains these two lines

!DEC$ ATTRIBUTES  VALUE :: scen,reg,soil,top,rain,depth,numd,nums,numb,numd,addn,srate,stype

!DEC$ ATTRIBUTES  REFERENCE :: lossx,lossy,ErrStr

The IBM fortran uses the following code to load the library and access the function:

pointer (q,clover)
p = loadlibrary("clover.dll")
q = getprocaddress(p, "ClOvr")

So I might be missing something in the translation to GNU fortran

Answer 1

我发现了我的问题：编译时，我必须使用-mrtd (sdtcall)