diff options
Diffstat (limited to 'doc/swig/test/Fortran.cxx')
| -rw-r--r-- | doc/swig/test/Fortran.cxx | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/doc/swig/test/Fortran.cxx b/doc/swig/test/Fortran.cxx deleted file mode 100644 index 475d21ddc..000000000 --- a/doc/swig/test/Fortran.cxx +++ /dev/null @@ -1,24 +0,0 @@ -#include <stdlib.h> -#include <math.h> -#include <iostream> -#include "Fortran.h" - -#define TEST_FUNCS(TYPE, SNAME) \ -\ -TYPE SNAME ## SecondElement(TYPE * matrix, int rows, int cols) { \ - TYPE result = matrix[1]; \ - return result; \ -} \ - -TEST_FUNCS(signed char , schar ) -TEST_FUNCS(unsigned char , uchar ) -TEST_FUNCS(short , short ) -TEST_FUNCS(unsigned short , ushort ) -TEST_FUNCS(int , int ) -TEST_FUNCS(unsigned int , uint ) -TEST_FUNCS(long , long ) -TEST_FUNCS(unsigned long , ulong ) -TEST_FUNCS(long long , longLong ) -TEST_FUNCS(unsigned long long, ulongLong) -TEST_FUNCS(float , float ) -TEST_FUNCS(double , double ) |