#define HAS_FORTRAN true
#include "Sim.h"
using namespace std;
extern "C" void F_TEST1(); //不能要 __stdcall
int TASKMAIN()
{
// Start your task code here
F_TEST1();
return TASK_OK;
}
subroutine F_TEST1
integer :: x=5,y=5,z
z=x+y
WRITE (*,*) z
READ (*,*) z
end subroutine
2017-10-31_14.50.44.jpg (80.73 KB, 下载次数: 408)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |