Fortran DLL and D

[Michael]

Hi everyone)

dmd 2.058
os: win 7 64 bit
fortran compilers: gfortran, ftn95

I have a fortran code that compiled into dll:

SUBROUTINE fsu (i)
    real :: x
    integer :: i
    x = 0.025
    print *, 'The answer is x = ', x , i
END SUBROUTINE fsu

and simple D code

import std.stdio;
import core.runtime;
import std.c.windows.windows;
import core.memory;

alias void function(int) MyHandler;

void main()
{
    GC.disable;
    FARPROC fp;
    HMODULE lib = cast(HMODULE)Runtime.loadLibrary("testf.dll");
    MyHandler mh;

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

    fp = GetProcAddress(lib, "FSU");

    if (fp is null)
    {
            writeln("Proc!");
            writeln(GetLastError());
            return;
    }
    mh = cast(MyHandler) fp;
    (*mh)(1);
    Runtime.unloadLibrary(lib);
}

and its output

The answer is x =     2.500000E-02  1407551829

It's should be an 1 value instead 1407551829.

I think, trouble in param passing.
How it can be fixed? Or where to look?

Thanks)