RosettaCodeData/Task/Call-a-function-in-a-shared-library/Fortran/call-a-function-in-a-shared-library-6.f

function ffun(x, y)
    implicit none
    !GCC$ ATTRIBUTES DLLEXPORT, STDCALL :: FFUN
    double precision :: x, y, ffun
    ffun = x + y * y
end function