Fortran DLL and D

[Michael]

Guys, thanks for advices.
After all I have proper code.

simple.d

import core.runtime;
import std.stdio;
import std.string;
import std.conv;

version(Windows)
{
     import core.sys.windows.windows;
     alias GetProcAddress GetProc;
}
else
     version(Linux) // not tested
     {
         import core.sys.linux.linux;
         alias dlsym GetProc;
     }

alias extern(C) void function (double *, int) func_One;
alias extern(C) void function (double *, int, ref int) func_Two;

void main(string[] args)
{
     if (args.count != 2)
         return;

     size_t size = parse!int(args[1]);

     writeln("Accept: ", size);

     double[] arr = new double[size];

     auto dllfile = "simple.dll";

     void * lib = Runtime.loadLibrary(dllfile);

     if (!lib)
     {
         writeln("Lib!");
         return;
     }

     func_One f_One = cast(func_One) GetProc(lib, 
"fOne".toStringz);
     if (f_One is null)
     {
         writeln("f_One!");
         return;
     }

     func_Two f_Two = cast(func_Two) GetProc(lib, 
"fTwo".toStringz);
     if (f_Two is null)
     {
         writeln("f_Two!");
         return;
     }

     f_One(arr.ptr, arr.length);

     writeln("array size: ", arr.length);

     for(int k = 0; k < arr.length; k++)
     {
         writeln(k + 1, '\t', arr[k]);
     }

     int ans = 0;
     f_Two(arr.ptr, arr.length, ans);

     writeln("fTwo = ", ans);

     Runtime.unloadLibrary(lib);
}

simple.f95 compiled with gfortran -shared -O3 -o simple.dll 
simple.f95

subroutine fOne(a, i) bind(C, name = "fOne")
     integer*4, value, intent(in) :: i
     real*8, dimension(i), intent(out) :: a
     print *, 'entry fortran dll'
     print *, 'size', i
     do j = 1, i
         a(j) = j * j;
         print *, j
     end do
     print *, 'exit fortran dll'
end

subroutine fTwo(a, i, ans) bind(C, name = "fTwo")
     integer*4, value, intent(in) :: i
     real*8, dimension(i), intent(in) :: a
     integer*4, intent(out) :: ans
     print *, 'entry fortran dll'
     print *, 'size', i
     if (a(1) .lt. 100) then
         print *, 'inside if'
         ans = 1
         print *, 'end if'
         return
     end if
     ans = 0
     print *, 'exit fortran dll'
end