Fix the CUTEst trampoline

Author: amontoison

include/cutest_routines_double.h

@@ -373,4 +373,3 @@
 
 #define FORTRAN_open_c_r          FORTRAN_open_c          
 #define FORTRAN_close_c_r         FORTRAN_close_c
-         

include/cutest_routines_quadruple.h

@@ -212,7 +212,7 @@
 #define CUTEST_newthread_threadsafe_r CUTEST_newthread_threadsafe_q
 #define CUTEST_classification_r CUTEST_classification_q
 #define CUTEST_pname_r CUTEST_pname_q
-#define CUTEST_problem_qetup_r CUTEST_problem_qetup_q
+#define CUTEST_problem_setup_r CUTEST_problem_setup_q
 #define CUTEST_problem_terminate_r CUTEST_problem_terminate_q
 #define CUTEST_probname_r CUTEST_probname_q
 #define CUTEST_probname_threadsafe_r CUTEST_probname_threadsafe_q

src/tools/cutest_trampoline.f90

@@ -34,18 +34,12 @@
 #endif
 
 #ifdef WINDOWS
-#define cutest_dlopen LoadLibrary
 #define DLOPEN_BIND_NAME "LoadLibraryA"
-#define cutest_dlsym GetProcAddress
 #define DLSYM_BIND_NAME "GetProcAddress"
-#define cutest_dlclose FreeLibrary
 #define DLCLOSE_BIND_NAME "FreeLibrary"
 #else
-#define cutest_dlopen dlopen
 #define DLOPEN_BIND_NAME "dlopen"
-#define cutest_dlsym dlsym
 #define DLSYM_BIND_NAME "dlsym"
-#define cutest_dlclose dlclose
 #define DLCLOSE_BIND_NAME "dlclose"
 #endif
 
@@ -59,7 +53,7 @@ function cutest_dlopen(name, mode) bind(C, name=DLOPEN_BIND_NAME)
       use iso_c_binding, only: c_ptr, c_int, c_char
       type(c_ptr) :: cutest_dlopen
       character(kind=c_char), dimension(*) :: name
-      integer(kind=c_int) :: mode
+      integer(kind=c_int), value :: mode
     end function cutest_dlopen
   end interface
 
@@ -77,6 +71,7 @@ end function cutest_dlsym
   interface
     subroutine cutest_dlclose(handle) bind(C, name=DLCLOSE_BIND_NAME)
       use iso_c_binding, only: c_ptr
+      ! type(c_int) :: cutest_dlclose
       type(c_ptr), value :: handle
     end subroutine cutest_dlclose
   end interface