java 代码如下package com.ccccccc;
import com.sun.jna.Library;
import com.sun.jna.Native;
import com.sun.jna.PointerType;
import com.sun.jna.ptr.*;import java.util.Arrays;import java.io.*;
public class Main {
public interface Flib extends Library{
Flib lib2 = (Flib) Native.loadLibrary("TestDll.dll", Flib.class);
void mysum(int x,int y,int sum);
}
public static void main(String[] args) {
        
int x=1;
int y=1;
int sum=0;
Flib.lib2.mysum(x,y,sum);

      System.out.println(sum);
        //System.out.println(b[1]);
        System.out.println("hello");        
}
}
Fortran 代码如下:subroutine mysum(x,y,sum)
implicit none
!DEC$ ATTRIBUTES DLLEXPORT :: mysum
!DEC$ ATTRIBUTES ALIAS:'mysum'::mysum
integer::x,y,sum
sum=x+y
end subroutine如果只是输出一句话,可以通过,传递参数就不行了