FO
function get_library_entry2(library, proc_name) bind(C, name='GetProcAddress')
import
type(C_FUNPTR) :: get_library_entry2
type(C_PTR), intent(in), value :: library
character(kind=C_CHAR), dimension(*), intent(in) :: proc_name
end function get_library_entry2
странно. а тут есть name... и ему таки надо было еще и stdcall?