baptistelabat · June 16, 2016 13:44
diff --git a/compile.bat b/compile.bat
 gcc -c test.cpp -o test.o
 gfortran main.f90 test.o
 a
diff --git a/main.f90 b/main.f90
 program toto
 	integer::a,b,c
 	!external ADD
 	a=10
 	b=15
 	call ADD(a,b,c)
 	
 	print*, a,b,c
 end program
diff --git a/test.cpp b/test.cpp
 extern "C"
 {
 	extern void add_(int* a, int* b, int* c);
 }
 void add_(int* a, int* b, int* c)
 {
 	*c=*a+*b+0;
 	return;
 }
	extern "C"
	{
	extern void add_(int* a, int* b, int* c);
	}
	void add_(int* a, int* b, int* c)
	{
	c=a+*b+0;
	return;
	}