diff --git a/testsuite/libffi.bhaible/test-call.c b/testsuite/libffi.bhaible/test-call.c
index fa91f35..e1a15fe 100644
--- a/testsuite/libffi.bhaible/test-call.c
+++ b/testsuite/libffi.bhaible/test-call.c
@@ -23,6 +23,7 @@
 #include <string.h>
 #include <ffi.h>
 #include "alignof.h"
+#include <stdarg.h>
 
 #include "testcases.c"
 
@@ -33,28 +34,39 @@
 int count = 0;
 char rbuf1[2048];
 char rbuf2[2048];
-#define FPRINTF(STREAM,FMT,ARGS...)			\
-  { fprintf(STREAM, FMT, ##ARGS) ;			\
-    switch (count++)					\
-      {							\
-        case 0:						\
-        case 1:						\
-	  sprintf(&rbuf1[strlen(rbuf1)], FMT, ##ARGS);	\
-	  break ;					\
-        case 2:						\
-	  sprintf(rbuf2, FMT, ##ARGS);	                \
-	  break;					\
-        case 3:						\
-	  sprintf(&rbuf2[strlen(rbuf2)], FMT, ##ARGS);	\
-	  if (strcmp (rbuf1, rbuf2)) abort();		\
-	  break;					\
-      }							\
-  }
-#else
-#define FPRINTF fprintf
+int fprintf(FILE *stream, const char *format, ...)
+{
+  va_list args;
+  va_start(args, format);
+
+  switch (count++)
+    {
+    case 0:
+    case 1:
+      vsprintf(&rbuf1[strlen(rbuf1)], format, args);
+      break;
+    case 2:
+      printf(rbuf1);
+      vsprintf(rbuf2, format, args);
+      break;
+    case 3:
+      vsprintf(&rbuf2[strlen(rbuf2)], format, args);
+      printf(rbuf2);
+      if (strcmp (rbuf1, rbuf2)) abort();
+      break;
+    }
+
+  va_end(args);
+
+  return 0;
+}
 #endif
 /* --------------------------------------------------------------- */
 
+#ifndef ABI_NUM
+#define ABI_NUM FFI_DEFAULT_ABI
+#endif
+
 /* Definitions that ought to be part of libffi. */
 static ffi_type ffi_type_char;
 #define ffi_type_slonglong ffi_type_sint64
@@ -64,9 +76,9 @@
 #define SKIP_EXTRA_STRUCTS
 
 #define FFI_PREP_CIF(cif,argtypes,rettype) \
-  if (ffi_prep_cif(&(cif),FFI_DEFAULT_ABI,sizeof(argtypes)/sizeof(argtypes[0]),&rettype,argtypes) != FFI_OK) abort()
+  if (ffi_prep_cif(&(cif),ABI_NUM,sizeof(argtypes)/sizeof(argtypes[0]),&rettype,argtypes) != FFI_OK) abort()
 #define FFI_PREP_CIF_NOARGS(cif,rettype) \
-  if (ffi_prep_cif(&(cif),FFI_DEFAULT_ABI,0,&rettype,NULL) != FFI_OK) abort()
+  if (ffi_prep_cif(&(cif),ABI_NUM,0,&rettype,NULL) != FFI_OK) abort()
 #define FFI_CALL(cif,fn,args,retaddr) \
   ffi_call(&(cif),(void(*)(void))(fn),retaddr,args)
 
@@ -112,7 +124,7 @@
   int ir;
 #if (!defined(DGTEST)) || DGTEST == 2
   ir = i_v();
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -122,13 +134,13 @@
       FFI_CALL(cif,i_v,NULL,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 3
   ir = i_i(i1);
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -140,13 +152,13 @@
       FFI_CALL(cif,i_i,args,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 4
   ir = i_i2(i1,i2);
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -158,13 +170,13 @@
       FFI_CALL(cif,i_i2,args,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 5
   ir = i_i4(i1,i2,i3,i4);
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -176,13 +188,13 @@
       FFI_CALL(cif,i_i4,args,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 6
   ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8);
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -194,13 +206,13 @@
       FFI_CALL(cif,i_i8,args,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 7
   ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16);
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
   ir = 0; clear_traces();
   {
@@ -212,7 +224,7 @@
       FFI_CALL(cif,i_i16,args,&ir);
     }
   }
-  FPRINTF(out,"->%d\n",ir);
+  fprintf(out,"->%d\n",ir);
   fflush(out);
 #endif
 
@@ -225,7 +237,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 8
   fr = f_f(f1);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -237,13 +249,13 @@
       FFI_CALL(cif,f_f,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 9
   fr = f_f2(f1,f2);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -255,13 +267,13 @@
       FFI_CALL(cif,f_f2,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 10
   fr = f_f4(f1,f2,f3,f4);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -273,13 +285,13 @@
       FFI_CALL(cif,f_f4,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 11
   fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -291,13 +303,13 @@
       FFI_CALL(cif,f_f8,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 12
   fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -309,13 +321,13 @@
       FFI_CALL(cif,f_f16,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 13
   fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -327,7 +339,7 @@
       FFI_CALL(cif,f_f24,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 }
@@ -339,7 +351,7 @@
 #if (!defined(DGTEST)) || DGTEST == 14
   
   dr = d_d(d1);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -351,13 +363,13 @@
       FFI_CALL(cif,d_d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 15
   dr = d_d2(d1,d2);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -369,13 +381,13 @@
       FFI_CALL(cif,d_d2,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 16
   dr = d_d4(d1,d2,d3,d4);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -387,13 +399,13 @@
       FFI_CALL(cif,d_d4,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 17
   dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -405,13 +417,13 @@
       FFI_CALL(cif,d_d8,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 18
   dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -423,7 +435,7 @@
       FFI_CALL(cif,d_d16,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif  
   return;
@@ -435,7 +447,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 19
   vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4);
-  FPRINTF(out,"->0x%p\n",vpr);
+  fprintf(out,"->0x%p\n",vpr);
   fflush(out);
   vpr = 0; clear_traces();
   {
@@ -451,7 +463,7 @@
       FFI_CALL(cif,vp_vpdpcpsp,args,&vpr);
     }
   }
-  FPRINTF(out,"->0x%p\n",vpr);
+  fprintf(out,"->0x%p\n",vpr);
   fflush(out);
 #endif  
   return;
@@ -469,7 +481,7 @@
    */
 #if (!defined(DGTEST)) || DGTEST == 20
   ucr = uc_ucsil(uc1, us2, ui3, ul4);
-  FPRINTF(out,"->%u\n",ucr);
+  fprintf(out,"->%u\n",ucr);
   fflush(out);
   ucr = 0; clear_traces();
   {
@@ -483,7 +495,7 @@
       ucr = (uchar) r;
     }
   }
-  FPRINTF(out,"->%u\n",ucr);
+  fprintf(out,"->%u\n",ucr);
   fflush(out);
 #endif
 
@@ -491,7 +503,7 @@
   /* Mixed int & float types.
    */
   dr = d_iidd(i1,i2,d3,d4);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -503,13 +515,13 @@
       FFI_CALL(cif,d_iidd,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 22
   dr = d_iiidi(i1,i2,i3,d4,i5);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -521,13 +533,13 @@
       FFI_CALL(cif,d_iiidi,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 23
   dr = d_idid(i1,d2,i3,d4);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -539,13 +551,13 @@
       FFI_CALL(cif,d_idid,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 24
   dr = d_fdi(f1,d2,i3);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -557,13 +569,13 @@
       FFI_CALL(cif,d_fdi,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 25
   usr = us_cdcd(c1,d2,c3,d4);
-  FPRINTF(out,"->%u\n",usr);
+  fprintf(out,"->%u\n",usr);
   fflush(out);
   usr = 0; clear_traces();
   {
@@ -577,7 +589,7 @@
       usr = (ushort) rint;
     }
   }
-  FPRINTF(out,"->%u\n",usr);
+  fprintf(out,"->%u\n",usr);
   fflush(out);
 #endif
 
@@ -585,7 +597,7 @@
   /* Long long types.
    */
   llr = ll_iiilli(i1,i2,i3,ll1,i13);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -597,13 +609,13 @@
       FFI_CALL(cif,ll_iiilli,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 27
   llr = ll_flli(f13,ll1,i13);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -615,13 +627,13 @@
       FFI_CALL(cif,ll_flli,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 28
   fr = f_fi(f1,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -633,13 +645,13 @@
       FFI_CALL(cif,f_fi,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 29
   fr = f_f2i(f1,f2,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -651,13 +663,13 @@
       FFI_CALL(cif,f_f2i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 30
   fr = f_f3i(f1,f2,f3,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -669,13 +681,13 @@
       FFI_CALL(cif,f_f3i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 31
   fr = f_f4i(f1,f2,f3,f4,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -687,13 +699,13 @@
       FFI_CALL(cif,f_f4i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 32
   fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -705,13 +717,13 @@
       FFI_CALL(cif,f_f7i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 33
   fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -723,13 +735,13 @@
       FFI_CALL(cif,f_f8i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 34
   fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -741,13 +753,13 @@
       FFI_CALL(cif,f_f12i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 35
   fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -759,13 +771,13 @@
       FFI_CALL(cif,f_f13i,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 36
   dr = d_di(d1,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -777,13 +789,13 @@
       FFI_CALL(cif,d_di,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 37
   dr = d_d2i(d1,d2,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -795,13 +807,13 @@
       FFI_CALL(cif,d_d2i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 38
   dr = d_d3i(d1,d2,d3,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -813,13 +825,13 @@
       FFI_CALL(cif,d_d3i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 39
   dr = d_d4i(d1,d2,d3,d4,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -831,13 +843,13 @@
       FFI_CALL(cif,d_d4i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 40
   dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -849,13 +861,13 @@
       FFI_CALL(cif,d_d7i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 41
   dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -867,13 +879,13 @@
       FFI_CALL(cif,d_d8i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 42
   dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -885,13 +897,13 @@
       FFI_CALL(cif,d_d12i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 43
   dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -903,7 +915,7 @@
       FFI_CALL(cif,d_d13i,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif  
   return;
@@ -914,7 +926,7 @@
 #if (!defined(DGTEST)) || DGTEST == 44
   {
     Size1 r = S1_v();
-    FPRINTF(out,"->{%c}\n",r.x1);
+    fprintf(out,"->{%c}\n",r.x1);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -930,14 +942,14 @@
         FFI_CALL(cif,S1_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c}\n",r.x1);
+    fprintf(out,"->{%c}\n",r.x1);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 45
   {
     Size2 r = S2_v();
-    FPRINTF(out,"->{%c%c}\n",r.x1,r.x2);
+    fprintf(out,"->{%c%c}\n",r.x1,r.x2);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -953,14 +965,14 @@
         FFI_CALL(cif,S2_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c}\n",r.x1,r.x2);
+    fprintf(out,"->{%c%c}\n",r.x1,r.x2);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 46
   {
     Size3 r = S3_v();
-    FPRINTF(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
+    fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -976,14 +988,14 @@
         FFI_CALL(cif,S3_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
+    fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 47
   {
     Size4 r = S4_v();
-    FPRINTF(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
+    fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -999,14 +1011,14 @@
         FFI_CALL(cif,S4_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
+    fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 48
   {
     Size7 r = S7_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
+    fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -1022,14 +1034,14 @@
         FFI_CALL(cif,S7_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
+    fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 49
   {
     Size8 r = S8_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -1045,14 +1057,14 @@
         FFI_CALL(cif,S8_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 50
   {
     Size12 r = S12_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -1068,14 +1080,14 @@
         FFI_CALL(cif,S12_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 51  
   {
     Size15 r = S15_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -1091,14 +1103,14 @@
         FFI_CALL(cif,S15_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
     fflush(out);
   }
 #endif
 #if (!defined(DGTEST)) || DGTEST == 52  
   {
     Size16 r = S16_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     {
@@ -1114,7 +1126,7 @@
         FFI_CALL(cif,S16_v,NULL,&r);
       }
     }
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
     fflush(out);
   }
 #endif
@@ -1134,7 +1146,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 53  
   Ir = I_III(I1,I2,I3);
-  FPRINTF(out,"->{%d}\n",Ir.x);
+  fprintf(out,"->{%d}\n",Ir.x);
   fflush(out);
   Ir.x = 0; clear_traces();
   {
@@ -1152,12 +1164,12 @@
       FFI_CALL(cif,I_III,args,&Ir);
     }
   }
-  FPRINTF(out,"->{%d}\n",Ir.x);
+  fprintf(out,"->{%d}\n",Ir.x);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 54
   Cr = C_CdC(C1,d2,C3);
-  FPRINTF(out,"->{'%c'}\n",Cr.x);
+  fprintf(out,"->{'%c'}\n",Cr.x);
   fflush(out);
   Cr.x = '\0'; clear_traces();
   {
@@ -1175,12 +1187,12 @@
       FFI_CALL(cif,C_CdC,args,&Cr);
     }
   }
-  FPRINTF(out,"->{'%c'}\n",Cr.x);
+  fprintf(out,"->{'%c'}\n",Cr.x);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 55
   Fr = F_Ffd(F1,f2,d3);
-  FPRINTF(out,"->{%g}\n",Fr.x);
+  fprintf(out,"->{%g}\n",Fr.x);
   fflush(out);
   Fr.x = 0.0; clear_traces();
   {
@@ -1198,12 +1210,12 @@
       FFI_CALL(cif,F_Ffd,args,&Fr);
     }
   }
-  FPRINTF(out,"->{%g}\n",Fr.x);
+  fprintf(out,"->{%g}\n",Fr.x);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 56  
   Dr = D_fDd(f1,D2,d3);
-  FPRINTF(out,"->{%g}\n",Dr.x);
+  fprintf(out,"->{%g}\n",Dr.x);
   fflush(out);
   Dr.x = 0.0; clear_traces();
   {
@@ -1221,12 +1233,12 @@
       FFI_CALL(cif,D_fDd,args,&Dr);
     }
   }
-  FPRINTF(out,"->{%g}\n",Dr.x);
+  fprintf(out,"->{%g}\n",Dr.x);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 57  
   Dr = D_Dfd(D1,f2,d3);
-  FPRINTF(out,"->{%g}\n",Dr.x);
+  fprintf(out,"->{%g}\n",Dr.x);
   fflush(out);
   Dr.x = 0.0; clear_traces();
   {
@@ -1244,12 +1256,12 @@
       FFI_CALL(cif,D_Dfd,args,&Dr);
     }
   }
-  FPRINTF(out,"->{%g}\n",Dr.x);
+  fprintf(out,"->{%g}\n",Dr.x);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 58  
   Jr = J_JiJ(J1,i2,J2);
-  FPRINTF(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
+  fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
   fflush(out);
   Jr.l1 = Jr.l2 = 0; clear_traces();
   {
@@ -1267,13 +1279,13 @@
       FFI_CALL(cif,J_JiJ,args,&Jr);
     }
   }
-  FPRINTF(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
+  fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
   fflush(out);
 #endif
 #ifndef SKIP_EXTRA_STRUCTS
 #if (!defined(DGTEST)) || DGTEST == 59
   Tr = T_TcT(T1,' ',T2);
-  FPRINTF(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
+  fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
   fflush(out);
   Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces();
   {
@@ -1292,12 +1304,12 @@
       FFI_CALL(cif,T_TcT,args,&Tr);
     }
   }
-  FPRINTF(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
+  fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 60
   Xr = X_BcdB(B1,c2,d3,B2);
-  FPRINTF(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
+  fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
   fflush(out);
   Xr.c[0]=Xr.c1='\0'; clear_traces();
   {
@@ -1315,7 +1327,7 @@
       FFI_CALL(cif,X_BcdB,args,&Xr);
     }
   }
-  FPRINTF(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
+  fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
   fflush(out);
 #endif
 #endif
@@ -1347,7 +1359,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 61  
   lr = l_l0K(K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1359,12 +1371,12 @@
       FFI_CALL(cif,l_l0K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 62  
   lr = l_l1K(l1,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1376,12 +1388,12 @@
       FFI_CALL(cif,l_l1K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 63  
   lr = l_l2K(l1,l2,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1393,12 +1405,12 @@
       FFI_CALL(cif,l_l2K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 64  
   lr = l_l3K(l1,l2,l3,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1410,12 +1422,12 @@
       FFI_CALL(cif,l_l3K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 65
   lr = l_l4K(l1,l2,l3,l4,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1427,12 +1439,12 @@
       FFI_CALL(cif,l_l4K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 66
   lr = l_l5K(l1,l2,l3,l4,l5,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1444,12 +1456,12 @@
       FFI_CALL(cif,l_l5K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 67  
   lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9);
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
   lr = 0; clear_traces();
   {
@@ -1461,12 +1473,12 @@
       FFI_CALL(cif,l_l6K,args,&lr);
     }
   }
-  FPRINTF(out,"->%ld\n",lr);
+  fprintf(out,"->%ld\n",lr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 68  
   fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1);
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
   fr = 0.0; clear_traces();
   {
@@ -1478,12 +1490,12 @@
       FFI_CALL(cif,f_f17l3L,args,&fr);
     }
   }
-  FPRINTF(out,"->%g\n",fr);
+  fprintf(out,"->%g\n",fr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 69  
   dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1495,12 +1507,12 @@
       FFI_CALL(cif,d_d17l3L,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 70  
   llr = ll_l2ll(l1,l2,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1512,12 +1524,12 @@
       FFI_CALL(cif,ll_l2ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 71
   llr = ll_l3ll(l1,l2,l3,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1529,12 +1541,12 @@
       FFI_CALL(cif,ll_l3ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 72  
   llr = ll_l4ll(l1,l2,l3,l4,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1546,12 +1558,12 @@
       FFI_CALL(cif,ll_l4ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 73  
   llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1563,12 +1575,12 @@
       FFI_CALL(cif,ll_l5ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 74  
   llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1580,12 +1592,12 @@
       FFI_CALL(cif,ll_l6ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 75  
   llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9);
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
   llr = 0; clear_traces();
   {
@@ -1597,12 +1609,12 @@
       FFI_CALL(cif,ll_l7ll,args,&llr);
     }
   }
-  FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+  fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 76  
   dr = d_l2d(l1,l2,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1614,12 +1626,12 @@
       FFI_CALL(cif,d_l2d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 77  
   dr = d_l3d(l1,l2,l3,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1631,12 +1643,12 @@
       FFI_CALL(cif,d_l3d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 78  
   dr = d_l4d(l1,l2,l3,l4,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1648,12 +1660,12 @@
       FFI_CALL(cif,d_l4d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 79  
   dr = d_l5d(l1,l2,l3,l4,l5,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1665,12 +1677,12 @@
       FFI_CALL(cif,d_l5d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 80  
   dr = d_l6d(l1,l2,l3,l4,l5,l6,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1682,12 +1694,12 @@
       FFI_CALL(cif,d_l6d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
 #if (!defined(DGTEST)) || DGTEST == 81  
   dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,d2,l9);
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
   dr = 0.0; clear_traces();
   {
@@ -1699,7 +1711,7 @@
       FFI_CALL(cif,d_l7d,args,&dr);
     }
   }
-  FPRINTF(out,"->%g\n",dr);
+  fprintf(out,"->%g\n",dr);
   fflush(out);
 #endif
   return;
diff --git a/testsuite/libffi.bhaible/test-callback.c b/testsuite/libffi.bhaible/test-callback.c
index 8bf9dd2..cb52a31 100644
--- a/testsuite/libffi.bhaible/test-callback.c
+++ b/testsuite/libffi.bhaible/test-callback.c
@@ -23,6 +23,7 @@
 #include <string.h>
 #include <ffi.h>
 #include "alignof.h"
+#include <stdarg.h>
 
 #include "testcases.c"
 
@@ -33,28 +34,39 @@
 int count = 0;
 char rbuf1[2048];
 char rbuf2[2048];
-#define FPRINTF(STREAM,FMT,ARGS...)			\
-  { fprintf(STREAM, FMT, ##ARGS) ;			\
-    switch (count++)					\
-      {							\
-        case 0:						\
-        case 1:						\
-	  sprintf(&rbuf1[strlen(rbuf1)], FMT, ##ARGS);	\
-	  break ;					\
-        case 2:						\
-	  sprintf(rbuf2, FMT, ##ARGS);	                \
-	  break;					\
-        case 3:						\
-	  sprintf(&rbuf2[strlen(rbuf2)], FMT, ##ARGS);	\
-	  if (strcmp (rbuf1, rbuf2)) abort();		\
-	  break;					\
-      }							\
-  }
-#else
-#define FPRINTF fprintf
+int fprintf(FILE *stream, const char *format, ...)
+{
+  va_list args;
+  va_start(args, format);
+
+  switch (count++)
+    {
+    case 0:
+    case 1:
+      vsprintf(&rbuf1[strlen(rbuf1)], format, args);
+      break;
+    case 2:
+      printf(rbuf1);
+      vsprintf(rbuf2, format, args);
+      break;
+    case 3:
+      vsprintf(&rbuf2[strlen(rbuf2)], format, args);
+      printf(rbuf2);
+      if (strcmp (rbuf1, rbuf2)) abort();
+      break;
+    }
+
+  va_end(args);
+
+  return 0;
+}
 #endif
 /* --------------------------------------------------------------- */
 
+#ifndef ABI_NUM
+#define ABI_NUM FFI_DEFAULT_ABI
+#endif
+
 /* Definitions that ought to be part of libffi. */
 static ffi_type ffi_type_char;
 #define ffi_type_slonglong ffi_type_sint64
@@ -64,9 +76,9 @@
 #define SKIP_EXTRA_STRUCTS
 
 #define FFI_PREP_CIF(cif,argtypes,rettype) \
-  if (ffi_prep_cif(&(cif),FFI_DEFAULT_ABI,sizeof(argtypes)/sizeof(argtypes[0]),&rettype,argtypes) != FFI_OK) abort()
+  if (ffi_prep_cif(&(cif),ABI_NUM,sizeof(argtypes)/sizeof(argtypes[0]),&rettype,argtypes) != FFI_OK) abort()
 #define FFI_PREP_CIF_NOARGS(cif,rettype) \
-  if (ffi_prep_cif(&(cif),FFI_DEFAULT_ABI,0,&rettype,NULL) != FFI_OK) abort()
+  if (ffi_prep_cif(&(cif),ABI_NUM,0,&rettype,NULL) != FFI_OK) abort()
 
 #if defined(__sparc__) && defined(__sun) && defined(__SUNPRO_C) /* SUNWspro cc */
 /* SunPRO cc miscompiles the simulator function for X_BcdB: d.i[1] is
@@ -88,7 +100,7 @@
 void v_v_simulator (ffi_cif* cif, void* retp, /*const*/ void* /*const*/ *args, void* data)
 {
   if (data != (void*)&v_v) { fprintf(out,"wrong data for v_v\n"); exit(1); }
-  FPRINTF(out,"void f(void):\n");
+  fprintf(out,"void f(void):\n");
   fflush(out);
 }
 
@@ -97,7 +109,7 @@
 {
   if (data != (void*)&i_v) { fprintf(out,"wrong data for i_v\n"); exit(1); }
  {int r=99;
-  FPRINTF(out,"int f(void):");
+  fprintf(out,"int f(void):");
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -106,7 +118,7 @@
   if (data != (void*)&i_i) { fprintf(out,"wrong data for i_i\n"); exit(1); }
   int a = *(int*)(*args++);
   int r=a+1;
-  FPRINTF(out,"int f(int):(%d)",a);
+  fprintf(out,"int f(int):(%d)",a);
   fflush(out);
   *(ffi_arg*)retp = r;
 }
@@ -116,7 +128,7 @@
  {int a = *(int*)(*args++);
   int b = *(int*)(*args++);
   int r=a+b;
-  FPRINTF(out,"int f(2*int):(%d,%d)",a,b);
+  fprintf(out,"int f(2*int):(%d,%d)",a,b);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -128,7 +140,7 @@
   int c = *(int*)(*args++);
   int d = *(int*)(*args++);
   int r=a+b+c+d;
-  FPRINTF(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d);
+  fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -144,7 +156,7 @@
   int g = *(int*)(*args++);
   int h = *(int*)(*args++);
   int r=a+b+c+d+e+f+g+h;
-  FPRINTF(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h);
+  fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -168,7 +180,7 @@
   int o = *(int*)(*args++);
   int p = *(int*)(*args++);
   int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p;
-  FPRINTF(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)",
+  fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)",
           a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p);
   fflush(out);
   *(ffi_arg*)retp = r;
@@ -180,7 +192,7 @@
   if (data != (void*)&f_f) { fprintf(out,"wrong data for f_f\n"); exit(1); }
  {float a = *(float*)(*args++);
   float r=a+1.0;
-  FPRINTF(out,"float f(float):(%g)",a);
+  fprintf(out,"float f(float):(%g)",a);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -190,7 +202,7 @@
  {float a = *(float*)(*args++);
   float b = *(float*)(*args++);
   float r=a+b;
-  FPRINTF(out,"float f(2*float):(%g,%g)",a,b);
+  fprintf(out,"float f(2*float):(%g,%g)",a,b);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -202,7 +214,7 @@
   float c = *(float*)(*args++);
   float d = *(float*)(*args++);
   float r=a+b+c+d;
-  FPRINTF(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d);
+  fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -218,7 +230,7 @@
   float g = *(float*)(*args++);
   float h = *(float*)(*args++);
   float r=a+b+c+d+e+f+g+h;
-  FPRINTF(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h);
+  fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -242,7 +254,7 @@
   float o = *(float*)(*args++);
   float p = *(float*)(*args++);
   float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p;
-  FPRINTF(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p);
+  fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -274,7 +286,7 @@
   float x = *(float*)(*args++);
   float y = *(float*)(*args++);
   float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y;
-  FPRINTF(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y);
+  fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -285,7 +297,7 @@
   if (data != (void*)&d_d) { fprintf(out,"wrong data for d_d\n"); exit(1); }
  {double a = *(double*)(*args++);
   double r=a+1.0;
-  FPRINTF(out,"double f(double):(%g)",a);
+  fprintf(out,"double f(double):(%g)",a);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -295,7 +307,7 @@
  {double a = *(double*)(*args++);
   double b = *(double*)(*args++);
   double r=a+b;
-  FPRINTF(out,"double f(2*double):(%g,%g)",a,b);
+  fprintf(out,"double f(2*double):(%g,%g)",a,b);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -307,7 +319,7 @@
   double c = *(double*)(*args++);
   double d = *(double*)(*args++);
   double r=a+b+c+d;
-  FPRINTF(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d);
+  fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -323,7 +335,7 @@
   double g = *(double*)(*args++);
   double h = *(double*)(*args++);
   double r=a+b+c+d+e+f+g+h;
-  FPRINTF(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h);
+  fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -347,7 +359,7 @@
   double o = *(double*)(*args++);
   double p = *(double*)(*args++);
   double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p;
-  FPRINTF(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p);
+  fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -361,7 +373,7 @@
   char* c = *(char* *)(*args++);
   Int* d = *(Int* *)(*args++);
   void* ret = (char*)b + 1;
-  FPRINTF(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d);
+  fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d);
   fflush(out);
   *(void* *)retp = ret;
 }}
@@ -375,7 +387,7 @@
   uint c = *(unsigned int *)(*args++);
   ulong d = *(unsigned long *)(*args++);
   uchar r = (uchar)-1;
-  FPRINTF(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d);
+  fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d);
   fflush(out);
   *(ffi_arg *)retp = r;
 }}
@@ -387,7 +399,7 @@
   double c = *(double*)(*args++);
   double d = *(double*)(*args++);
   double r=a+b+c+d;
-  FPRINTF(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d);
+  fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -400,7 +412,7 @@
   double d = *(double*)(*args++);
   int e = *(int*)(*args++);
   double r=a+b+c+d+e;
-  FPRINTF(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e);
+  fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -412,7 +424,7 @@
   int c = *(int*)(*args++);
   double d = *(double*)(*args++);
   double r=a+b+c+d;
-  FPRINTF(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d);
+  fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -423,7 +435,7 @@
   double b = *(double*)(*args++);
   int c = *(int*)(*args++);
   double r=a+b+c;
-  FPRINTF(out,"double f(float,double,int):(%g,%g,%d)",a,b,c);
+  fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -435,7 +447,7 @@
   char c = *(char*)(*args++);
   double d = *(double*)(*args++);
   ushort r = (ushort)(a + b + c + d);
-  FPRINTF(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d);
+  fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d);
   fflush(out);
   *(ffi_arg *)retp = r;
 }}
@@ -448,7 +460,7 @@
   long long d = *(long long *)(*args++);
   int e = *(int*)(*args++);
   long long r = (long long)(int)a + (long long)(int)b + (long long)(int)c + d + (long long)e;
-  FPRINTF(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e);
+  fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -459,7 +471,7 @@
   long long b = *(long long *)(*args++);
   int c = *(int*)(*args++);
   long long r = (long long)(int)a + b + (long long)c;
-  FPRINTF(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c);
+  fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -469,7 +481,7 @@
  {float a = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+z;
-  FPRINTF(out,"float f(float,int):(%g,%d)",a,z);
+  fprintf(out,"float f(float,int):(%g,%d)",a,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -480,7 +492,7 @@
   float b = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+z;
-  FPRINTF(out,"float f(2*float,int):(%g,%g,%d)",a,b,z);
+  fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -492,7 +504,7 @@
   float c = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+z;
-  FPRINTF(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z);
+  fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -505,7 +517,7 @@
   float d = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+d+z;
-  FPRINTF(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
+  fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -521,7 +533,7 @@
   float g = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+d+e+f+g+z;
-  FPRINTF(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z);
+  fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -538,7 +550,7 @@
   float h = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+d+e+f+g+h+z;
-  FPRINTF(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z);
+  fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -559,7 +571,7 @@
   float l = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+d+e+f+g+h+i+j+k+l+z;
-  FPRINTF(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z);
+  fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -581,7 +593,7 @@
   float m = *(float*)(*args++);
   int z = *(int*)(*args++);
   float r=a+b+c+d+e+f+g+h+i+j+k+l+m+z;
-  FPRINTF(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z);
+  fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -591,7 +603,7 @@
  {double a = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+z;
-  FPRINTF(out,"double f(double,int):(%g,%d)",a,z);
+  fprintf(out,"double f(double,int):(%g,%d)",a,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -602,7 +614,7 @@
   double b = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+z;
-  FPRINTF(out,"double f(2*double,int):(%g,%g,%d)",a,b,z);
+  fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -614,7 +626,7 @@
   double c = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+z;
-  FPRINTF(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z);
+  fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -627,7 +639,7 @@
   double d = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+d+z;
-  FPRINTF(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
+  fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -643,7 +655,7 @@
   double g = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+d+e+f+g+z;
-  FPRINTF(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z);
+  fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -660,7 +672,7 @@
   double h = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+d+e+f+g+h+z;
-  FPRINTF(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z);
+  fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -681,7 +693,7 @@
   double l = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+d+e+f+g+h+i+j+k+l+z;
-  FPRINTF(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z);
+  fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -703,7 +715,7 @@
   double m = *(double*)(*args++);
   int z = *(int*)(*args++);
   double r=a+b+c+d+e+f+g+h+i+j+k+l+m+z;
-  FPRINTF(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z);
+  fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -713,7 +725,7 @@
 {
   if (data != (void*)&S1_v) { fprintf(out,"wrong data for S1_v\n"); exit(1); }
  {Size1 r = Size1_1;
-  FPRINTF(out,"Size1 f(void):");
+  fprintf(out,"Size1 f(void):");
   fflush(out);
   *(Size1*)retp = r;
 }}
@@ -721,7 +733,7 @@
 {
   if (data != (void*)&S2_v) { fprintf(out,"wrong data for S2_v\n"); exit(1); }
  {Size2 r = Size2_1;
-  FPRINTF(out,"Size2 f(void):");
+  fprintf(out,"Size2 f(void):");
   fflush(out);
   *(Size2*)retp = r;
 }}
@@ -729,7 +741,7 @@
 {
   if (data != (void*)&S3_v) { fprintf(out,"wrong data for S3_v\n"); exit(1); }
  {Size3 r = Size3_1;
-  FPRINTF(out,"Size3 f(void):");
+  fprintf(out,"Size3 f(void):");
   fflush(out);
   *(Size3*)retp = r;
 }}
@@ -737,7 +749,7 @@
 {
   if (data != (void*)&S4_v) { fprintf(out,"wrong data for S4_v\n"); exit(1); }
  {Size4 r = Size4_1;
-  FPRINTF(out,"Size4 f(void):");
+  fprintf(out,"Size4 f(void):");
   fflush(out);
   *(Size4*)retp = r;
 }}
@@ -745,7 +757,7 @@
 {
   if (data != (void*)&S7_v) { fprintf(out,"wrong data for S7_v\n"); exit(1); }
  {Size7 r = Size7_1;
-  FPRINTF(out,"Size7 f(void):");
+  fprintf(out,"Size7 f(void):");
   fflush(out);
   *(Size7*)retp = r;
 }}
@@ -753,7 +765,7 @@
 {
   if (data != (void*)&S8_v) { fprintf(out,"wrong data for S8_v\n"); exit(1); }
  {Size8 r = Size8_1;
-  FPRINTF(out,"Size8 f(void):");
+  fprintf(out,"Size8 f(void):");
   fflush(out);
   *(Size8*)retp = r;
 }}
@@ -761,7 +773,7 @@
 {
   if (data != (void*)&S12_v) { fprintf(out,"wrong data for S12_v\n"); exit(1); }
  {Size12 r = Size12_1;
-  FPRINTF(out,"Size12 f(void):");
+  fprintf(out,"Size12 f(void):");
   fflush(out);
   *(Size12*)retp = r;
 }}
@@ -769,7 +781,7 @@
 {
   if (data != (void*)&S15_v) { fprintf(out,"wrong data for S15_v\n"); exit(1); }
  {Size15 r = Size15_1;
-  FPRINTF(out,"Size15 f(void):");
+  fprintf(out,"Size15 f(void):");
   fflush(out);
   *(Size15*)retp = r;
 }}
@@ -777,7 +789,7 @@
 {
   if (data != (void*)&S16_v) { fprintf(out,"wrong data for S16_v\n"); exit(1); }
  {Size16 r = Size16_1;
-  FPRINTF(out,"Size16 f(void):");
+  fprintf(out,"Size16 f(void):");
   fflush(out);
   *(Size16*)retp = r;
 }}
@@ -791,7 +803,7 @@
   Int c = *(Int*)(*args++);
   Int r;
   r.x = a.x + b.x + c.x;
-  FPRINTF(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x);
+  fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x);
   fflush(out);
   *(Int*)retp = r;
 }}
@@ -803,7 +815,7 @@
   Char c = *(Char*)(*args++);
   Char r;
   r.x = (a.x + c.x)/2;
-  FPRINTF(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x);
+  fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x);
   fflush(out);
   *(Char*)retp = r;
 }}
@@ -815,7 +827,7 @@
   double c = *(double*)(*args++);
   Float r;
   r.x = a.x + b + c;
-  FPRINTF(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c);
+  fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c);
   fflush(out);
   *(Float*)retp = r;
 }}
@@ -827,7 +839,7 @@
   double c = *(double*)(*args++);
   Double r;
   r.x = a + b.x + c;
-  FPRINTF(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c);
+  fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c);
   fflush(out);
   *(Double*)retp = r;
 }}
@@ -839,7 +851,7 @@
   double c = *(double*)(*args++);
   Double r;
   r.x = a.x + b + c;
-  FPRINTF(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c);
+  fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c);
   fflush(out);
   *(Double*)retp = r;
 }}
@@ -851,7 +863,7 @@
   J c = *(J*)(*args++);
   J r;
   r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2;
-  FPRINTF(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2);
+  fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2);
   fflush(out);
   *(J*)retp = r;
 }}
@@ -864,7 +876,7 @@
   T c = *(T*)(*args++);
   T r;
   r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2];
-  FPRINTF(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]);
+  fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]);
   fflush(out);
   *(T*)retp = r;
 }}
@@ -879,7 +891,7 @@
   X r;
   r = xr;
   r.c1 = b;
-  FPRINTF(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})",
+  fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})",
           a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]);
   fflush(out);
   *(X*)retp = r;
@@ -893,7 +905,7 @@
  {K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -904,7 +916,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -916,7 +928,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -929,7 +941,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -943,7 +955,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -958,7 +970,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -974,7 +986,7 @@
   K b = *(K*)(*args++);
   long c = *(long*)(*args++);
   long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c;
-  FPRINTF(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c);
+  fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   *(ffi_arg*)retp = r;
 }}
@@ -1003,7 +1015,7 @@
   long u = *(long*)(*args++);
   L z = *(L*)(*args++);
   float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6;
-  FPRINTF(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6);
+  fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6);
   fflush(out);
   *(float*)retp = r;
 }}
@@ -1032,7 +1044,7 @@
   long u = *(long*)(*args++);
   L z = *(L*)(*args++);
   double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6;
-  FPRINTF(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6);
+  fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1044,7 +1056,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2) + b + c;
-  FPRINTF(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1057,7 +1069,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2 + a3) + b + c;
-  FPRINTF(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1071,7 +1083,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2 + a3 + a4) + b + c;
-  FPRINTF(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1086,7 +1098,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c;
-  FPRINTF(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1102,7 +1114,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c;
-  FPRINTF(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1119,7 +1131,7 @@
   long long b = *(long long *)(*args++);
   long c = *(long*)(*args++);
   long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c;
-  FPRINTF(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c);
+  fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   *(long long *)retp = r;
 }}
@@ -1131,7 +1143,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2) + b + c;
-  FPRINTF(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c);
+  fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1144,7 +1156,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2 + a3) + b + c;
-  FPRINTF(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c);
+  fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1158,7 +1170,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2 + a3 + a4) + b + c;
-  FPRINTF(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c);
+  fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1173,7 +1185,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c;
-  FPRINTF(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c);
+  fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1189,7 +1201,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c;
-  FPRINTF(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c);
+  fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1206,7 +1218,7 @@
   double b = *(double*)(*args++);
   long c = *(long*)(*args++);
   double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c;
-  FPRINTF(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c);
+  fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c);
   fflush(out);
   *(double*)retp = r;
 }}
@@ -1284,7 +1296,7 @@
       ir = ((int (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif    
 
@@ -1302,7 +1314,7 @@
       ir = ((int (*) (int)) callback_code) (i1);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif
 
@@ -1320,7 +1332,7 @@
       ir = ((int (*) (int,int)) callback_code) (i1,i2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif
 
@@ -1338,7 +1350,7 @@
       ir = ((int (*) (int,int,int,int)) callback_code) (i1,i2,i3,i4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif
 
@@ -1356,7 +1368,7 @@
       ir = ((int (*) (int,int,int,int,int,int,int,int)) callback_code) (i1,i2,i3,i4,i5,i6,i7,i8);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif
   
@@ -1374,7 +1386,7 @@
       ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) callback_code) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%d\n",ir);
+    fprintf(out,"->%d\n",ir);
     fflush(out);
 #endif
   }
@@ -1396,7 +1408,7 @@
       fr = ((float (*) (float)) callback_code) (f1);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1414,7 +1426,7 @@
       fr = ((float (*) (float,float)) callback_code) (f1,f2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1432,7 +1444,7 @@
       fr = ((float (*) (float,float,float,float)) callback_code) (f1,f2,f3,f4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1450,7 +1462,7 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1468,7 +1480,7 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1486,7 +1498,7 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
@@ -1509,7 +1521,7 @@
       dr = ((double (*) (double)) callback_code) (d1);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
@@ -1527,7 +1539,7 @@
       dr = ((double (*) (double,double)) callback_code) (d1,d2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
   
@@ -1545,7 +1557,7 @@
       dr = ((double (*) (double,double,double,double)) callback_code) (d1,d2,d3,d4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
@@ -1563,7 +1575,7 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
@@ -1581,7 +1593,7 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
   }
@@ -1603,7 +1615,7 @@
       vpr = ((void* (*) (void*,double*,char*,Int*)) callback_code) (&uc1,&d2,str3,&I4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%p\n",vpr);
+    fprintf(out,"->0x%p\n",vpr);
     fflush(out);
 #endif
   }
@@ -1629,7 +1641,7 @@
       ucr = ((uchar (*) (uchar,ushort,uint,ulong)) callback_code) (uc1,us2,ui3,ul4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%u\n",ucr);
+    fprintf(out,"->%u\n",ucr);
     fflush(out);
 #endif
 
@@ -1647,7 +1659,7 @@
       dr = ((double (*) (int,int,double,double)) callback_code) (i1,i2,d3,d4);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
@@ -1671,7 +1683,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 23    
     dr = d_idid(i1,d2,i3,d4);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1689,7 +1701,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 24    
     dr = d_fdi(f1,d2,i3);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1707,7 +1719,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 25    
     usr = us_cdcd(c1,d2,c3,d4);
-    FPRINTF(out,"->%u\n",usr);
+    fprintf(out,"->%u\n",usr);
     fflush(out);
     usr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -1725,7 +1737,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 26    
     llr = ll_iiilli(i1,i2,i3,ll1,i13);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -1737,13 +1749,13 @@
       llr = ((long long (*) (int,int,int,long long,int)) callback_code) (i1,i2,i3,ll1,i13);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 27    
     llr = ll_flli(f13,ll1,i13);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -1755,13 +1767,13 @@
       llr = ((long long (*) (float,long long,int)) callback_code) (f13,ll1,i13);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 28    
     fr = f_fi(f1,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1773,13 +1785,13 @@
       fr = ((float (*) (float,int)) callback_code) (f1,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 29    
     fr = f_f2i(f1,f2,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1791,13 +1803,13 @@
       fr = ((float (*) (float,float,int)) callback_code) (f1,f2,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 30    
     fr = f_f3i(f1,f2,f3,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1809,13 +1821,13 @@
       fr = ((float (*) (float,float,float,int)) callback_code) (f1,f2,f3,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 31    
     fr = f_f4i(f1,f2,f3,f4,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1827,13 +1839,13 @@
       fr = ((float (*) (float,float,float,float,int)) callback_code) (f1,f2,f3,f4,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 32    
     fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1845,13 +1857,13 @@
       fr = ((float (*) (float,float,float,float,float,float,float,int)) callback_code) (f1,f2,f3,f4,f5,f6,f7,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 33    
     fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1863,13 +1875,13 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float,int)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 34    
     fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1881,13 +1893,13 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,int)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 35    
     dr = d_di(d1,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1899,13 +1911,13 @@
       dr = ((double (*) (double,int)) callback_code) (d1,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 36    
     dr = d_d2i(d1,d2,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1917,13 +1929,13 @@
       dr = ((double (*) (double,double,int)) callback_code) (d1,d2,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 37    
     dr = d_d3i(d1,d2,d3,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1935,13 +1947,13 @@
       dr = ((double (*) (double,double,double,int)) callback_code) (d1,d2,d3,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 38    
     dr = d_d4i(d1,d2,d3,d4,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1953,13 +1965,13 @@
       dr = ((double (*) (double,double,double,double,int)) callback_code) (d1,d2,d3,d4,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 39    
     dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1971,13 +1983,13 @@
       dr = ((double (*) (double,double,double,double,double,double,double,int)) callback_code) (d1,d2,d3,d4,d5,d6,d7,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 40    
     dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -1989,13 +2001,13 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double,int)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 41    
     dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2007,13 +2019,13 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,int)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 42    
     dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2025,7 +2037,7 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,int)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
   }
@@ -2034,7 +2046,7 @@
 #if (!defined(DGTEST)) || DGTEST == 43
   {
     Size1 r = S1_v();
-    FPRINTF(out,"->{%c}\n",r.x1);
+    fprintf(out,"->{%c}\n",r.x1);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2051,7 +2063,7 @@
       r = ((Size1 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c}\n",r.x1);
+    fprintf(out,"->{%c}\n",r.x1);
     fflush(out);
   }
 #endif
@@ -2059,7 +2071,7 @@
 #if (!defined(DGTEST)) || DGTEST == 44
   {
     Size2 r = S2_v();
-    FPRINTF(out,"->{%c%c}\n",r.x1,r.x2);
+    fprintf(out,"->{%c%c}\n",r.x1,r.x2);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2076,7 +2088,7 @@
       r = ((Size2 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c}\n",r.x1,r.x2);
+    fprintf(out,"->{%c%c}\n",r.x1,r.x2);
     fflush(out);
   }
 #endif    
@@ -2084,7 +2096,7 @@
 #if (!defined(DGTEST)) || DGTEST == 45
   {
     Size3 r = S3_v();
-    FPRINTF(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
+    fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2101,7 +2113,7 @@
       r = ((Size3 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
+    fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3);
     fflush(out);
   }
 #endif    
@@ -2109,7 +2121,7 @@
 #if (!defined(DGTEST)) || DGTEST == 46
   {
     Size4 r = S4_v();
-    FPRINTF(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
+    fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2126,7 +2138,7 @@
       r = ((Size4 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
+    fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4);
     fflush(out);
   }
 #endif
@@ -2134,7 +2146,7 @@
 #if (!defined(DGTEST)) || DGTEST == 47  
   {
     Size7 r = S7_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
+    fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2151,7 +2163,7 @@
       r = ((Size7 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
+    fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7);
     fflush(out);
   }
 #endif
@@ -2159,7 +2171,7 @@
 #if (!defined(DGTEST)) || DGTEST == 48  
   {
     Size8 r = S8_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2176,7 +2188,7 @@
       r = ((Size8 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8);
     fflush(out);
   }
 #endif
@@ -2184,7 +2196,7 @@
 #if (!defined(DGTEST)) || DGTEST == 49
   {
     Size12 r = S12_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2201,7 +2213,7 @@
       r = ((Size12 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12);
     fflush(out);
   }
 #endif
@@ -2209,7 +2221,7 @@
 #if (!defined(DGTEST)) || DGTEST == 50  
   {
     Size15 r = S15_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2226,7 +2238,7 @@
       r = ((Size15 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15);
     fflush(out);
   }
 #endif
@@ -2234,7 +2246,7 @@
 #if (!defined(DGTEST)) || DGTEST == 51
   {
     Size16 r = S16_v();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
     fflush(out);
     memset(&r,0,sizeof(r)); clear_traces();
     ALLOC_CALLBACK();
@@ -2251,7 +2263,7 @@
       r = ((Size16 (*) (void)) callback_code) ();
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
+    fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16);
     fflush(out);
   }
 #endif
@@ -2270,7 +2282,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 52
     Ir = I_III(I1,I2,I3);
-    FPRINTF(out,"->{%d}\n",Ir.x);
+    fprintf(out,"->{%d}\n",Ir.x);
     fflush(out);
     Ir.x = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2288,13 +2300,13 @@
       Ir = ((Int (*) (Int,Int,Int)) callback_code) (I1,I2,I3);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%d}\n",Ir.x);
+    fprintf(out,"->{%d}\n",Ir.x);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 53
     Cr = C_CdC(C1,d2,C3);
-    FPRINTF(out,"->{'%c'}\n",Cr.x);
+    fprintf(out,"->{'%c'}\n",Cr.x);
     fflush(out);
     Cr.x = '\0'; clear_traces();
     ALLOC_CALLBACK();
@@ -2312,13 +2324,13 @@
       Cr = ((Char (*) (Char,double,Char)) callback_code) (C1,d2,C3);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{'%c'}\n",Cr.x);
+    fprintf(out,"->{'%c'}\n",Cr.x);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 54    
     Fr = F_Ffd(F1,f2,d3);
-    FPRINTF(out,"->{%g}\n",Fr.x);
+    fprintf(out,"->{%g}\n",Fr.x);
     fflush(out);
     Fr.x = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2336,13 +2348,13 @@
       Fr = ((Float (*) (Float,float,double)) callback_code) (F1,f2,d3);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%g}\n",Fr.x);
+    fprintf(out,"->{%g}\n",Fr.x);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 55    
     Dr = D_fDd(f1,D2,d3);
-    FPRINTF(out,"->{%g}\n",Dr.x);
+    fprintf(out,"->{%g}\n",Dr.x);
     fflush(out);
     Dr.x = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2360,13 +2372,13 @@
       Dr = ((Double (*) (float,Double,double)) callback_code) (f1,D2,d3);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%g}\n",Dr.x);
+    fprintf(out,"->{%g}\n",Dr.x);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 56
     Dr = D_Dfd(D1,f2,d3);
-    FPRINTF(out,"->{%g}\n",Dr.x);
+    fprintf(out,"->{%g}\n",Dr.x);
     fflush(out);
     Dr.x = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2384,13 +2396,13 @@
       Dr = ((Double (*) (Double,float,double)) callback_code) (D1,f2,d3);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%g}\n",Dr.x);
+    fprintf(out,"->{%g}\n",Dr.x);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 57
     Jr = J_JiJ(J1,i2,J2);
-    FPRINTF(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
+    fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
     fflush(out);
     Jr.l1 = Jr.l2 = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2408,14 +2420,14 @@
       Jr = ((J (*) (J,int,J)) callback_code) (J1,i2,J2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
+    fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2);
     fflush(out);
 #endif
 
 #ifndef SKIP_EXTRA_STRUCTS
 #if (!defined(DGTEST)) || DGTEST == 58
     Tr = T_TcT(T1,' ',T2);
-    FPRINTF(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
+    fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
     fflush(out);
     Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2433,14 +2445,14 @@
       Tr = ((T (*) (T,char,T)) callback_code) (T1,' ',T2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
+    fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]);
     fflush(out);
 #endif
 
 #ifndef SKIP_X
 #if (!defined(DGTEST)) || DGTEST == 59
     Xr = X_BcdB(B1,c2,d3,B2);
-    FPRINTF(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
+    fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
     fflush(out);
     Xr.c[0]=Xr.c1='\0'; clear_traces();
     ALLOC_CALLBACK();
@@ -2458,7 +2470,7 @@
       Xr = ((X (*) (B,char,double,B)) callback_code) (B1,c2,d3,B2);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
+    fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1);
     fflush(out);
 #endif
 #endif
@@ -2489,7 +2501,7 @@
 
 #if (!defined(DGTEST)) || DGTEST == 60
     lr = l_l0K(K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2501,13 +2513,13 @@
       lr = ((long (*) (K,long)) callback_code) (K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 61
     lr = l_l1K(l1,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2519,13 +2531,13 @@
       lr = ((long (*) (long,K,long)) callback_code) (l1,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 62
     lr = l_l2K(l1,l2,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2537,13 +2549,13 @@
       lr = ((long (*) (long,long,K,long)) callback_code) (l1,l2,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 63
     lr = l_l3K(l1,l2,l3,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2555,13 +2567,13 @@
       lr = ((long (*) (long,long,long,K,long)) callback_code) (l1,l2,l3,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 64
     lr = l_l4K(l1,l2,l3,l4,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2573,13 +2585,13 @@
       lr = ((long (*) (long,long,long,long,K,long)) callback_code) (l1,l2,l3,l4,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 65  
     lr = l_l5K(l1,l2,l3,l4,l5,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2591,13 +2603,13 @@
       lr = ((long (*) (long,long,long,long,long,K,long)) callback_code) (l1,l2,l3,l4,l5,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 66
     lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9);
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
     lr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2609,13 +2621,13 @@
       lr = ((long (*) (long,long,long,long,long,long,K,long)) callback_code) (l1,l2,l3,l4,l5,l6,K1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%ld\n",lr);
+    fprintf(out,"->%ld\n",lr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 67    
     fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1);
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
     fr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2627,13 +2639,13 @@
       fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,long,long,long,L)) callback_code) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",fr);
+    fprintf(out,"->%g\n",fr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 68    
     dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2645,13 +2657,13 @@
       dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,long,long,long,L)) callback_code) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 69    
     llr = ll_l2ll(l1,l2,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2663,13 +2675,13 @@
       llr = ((long long (*) (long,long,long long,long)) callback_code) (l1,l2,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 70
     llr = ll_l3ll(l1,l2,l3,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2681,13 +2693,13 @@
       llr = ((long long (*) (long,long,long,long long,long)) callback_code) (l1,l2,l3,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 71    
     llr = ll_l4ll(l1,l2,l3,l4,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2699,13 +2711,13 @@
       llr = ((long long (*) (long,long,long,long,long long,long)) callback_code) (l1,l2,l3,l4,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 72    
     llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2717,13 +2729,13 @@
       llr = ((long long (*) (long,long,long,long,long,long long,long)) callback_code) (l1,l2,l3,l4,l5,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 73    
     llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2735,13 +2747,13 @@
       llr = ((long long (*) (long,long,long,long,long,long,long long,long)) callback_code) (l1,l2,l3,l4,l5,l6,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 74    
     llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9);
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
     llr = 0; clear_traces();
     ALLOC_CALLBACK();
@@ -2753,13 +2765,13 @@
       llr = ((long long (*) (long,long,long,long,long,long,long,long long,long)) callback_code) (l1,l2,l3,l4,l5,l6,l7,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
+    fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff));
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 75    
     dr = d_l2d(l1,l2,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2771,13 +2783,13 @@
       dr = ((double (*) (long,long,double,long)) callback_code) (l1,l2,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 76    
     dr = d_l3d(l1,l2,l3,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2789,13 +2801,13 @@
       dr = ((double (*) (long,long,long,double,long)) callback_code) (l1,l2,l3,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 77    
     dr = d_l4d(l1,l2,l3,l4,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2807,13 +2819,13 @@
       dr = ((double (*) (long,long,long,long,double,long)) callback_code) (l1,l2,l3,l4,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 78
     dr = d_l5d(l1,l2,l3,l4,l5,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2825,13 +2837,13 @@
       dr = ((double (*) (long,long,long,long,long,double,long)) callback_code) (l1,l2,l3,l4,l5,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 79
     dr = d_l6d(l1,l2,l3,l4,l5,l6,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2843,13 +2855,13 @@
       dr = ((double (*) (long,long,long,long,long,long,double,long)) callback_code) (l1,l2,l3,l4,l5,l6,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
 #if (!defined(DGTEST)) || DGTEST == 80
     dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,ll1,l9);
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
     dr = 0.0; clear_traces();
     ALLOC_CALLBACK();
@@ -2861,7 +2873,7 @@
       dr = ((double (*) (long,long,long,long,long,long,long,double,long)) callback_code) (l1,l2,l3,l4,l5,l6,l7,ll1,l9);
     }
     FREE_CALLBACK();
-    FPRINTF(out,"->%g\n",dr);
+    fprintf(out,"->%g\n",dr);
     fflush(out);
 #endif
 
diff --git a/testsuite/libffi.bhaible/testcases.c b/testsuite/libffi.bhaible/testcases.c
index 4eb32b0..d25ebf4 100644
--- a/testsuite/libffi.bhaible/testcases.c
+++ b/testsuite/libffi.bhaible/testcases.c
@@ -4,7 +4,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation; either version 3 of the License, or
  * (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
@@ -105,50 +105,65 @@
 T T1={{'t','h','e'}},T2={{'f','o','x'}};
 X X1={"abcdefghijklmnopqrstuvwxyzABCDEF",'G'}, X2={"123",'9'}, X3={"return-return-return",'R'};
 
+#if defined(__GNUC__)
+#define __STDCALL__ __attribute__((stdcall))
+#define __THISCALL__ __attribute__((thiscall))
+#define __FASTCALL__ __attribute__((fastcall))
+#define __MSABI__ __attribute__((ms_abi))
+#else
+#define __STDCALL__ __stdcall
+#define __THISCALL__ __thiscall
+#define __FASTCALL__ __fastcall
+#endif
+
+#ifndef ABI_ATTR
+#define ABI_ATTR
+#endif
+
 /* void tests */
-void v_v (void)
+void ABI_ATTR v_v (void)
 {
   fprintf(out,"void f(void):\n");
   fflush(out);
 }
 
 /* int tests */
-int i_v (void)
+int ABI_ATTR i_v (void)
 {
   int r=99;
   fprintf(out,"int f(void):");
   fflush(out);
   return r;
 }
-int i_i (int a)
+int ABI_ATTR i_i (int a)
 {
   int r=a+1;
   fprintf(out,"int f(int):(%d)",a);
   fflush(out);
   return r;
 }
-int i_i2 (int a, int b)
+int ABI_ATTR i_i2 (int a, int b)
 {
   int r=a+b;
   fprintf(out,"int f(2*int):(%d,%d)",a,b);
   fflush(out);
   return r;
 }
-int i_i4 (int a, int b, int c, int d)
+int ABI_ATTR i_i4 (int a, int b, int c, int d)
 {
   int r=a+b+c+d;
   fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d);
   fflush(out);
   return r;
 }
-int i_i8 (int a, int b, int c, int d, int e, int f, int g, int h)
+int ABI_ATTR i_i8 (int a, int b, int c, int d, int e, int f, int g, int h)
 {
   int r=a+b+c+d+e+f+g+h;
   fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h);
   fflush(out);
   return r;
 }
-int i_i16 (int a, int b, int c, int d, int e, int f, int g, int h,
+int ABI_ATTR i_i16 (int a, int b, int c, int d, int e, int f, int g, int h,
            int i, int j, int k, int l, int m, int n, int o, int p)
 {
   int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p;
@@ -159,28 +174,28 @@
 }
 
 /* float tests */
-float f_f (float a)
+float ABI_ATTR f_f (float a)
 {
   float r=a+1.0f;
   fprintf(out,"float f(float):(%g)",a);
   fflush(out);
   return r;
 }
-float f_f2 (float a, float b)
+float ABI_ATTR f_f2 (float a, float b)
 {
   float r=a+b;
   fprintf(out,"float f(2*float):(%g,%g)",a,b);
   fflush(out);
   return r;
 }
-float f_f4 (float a, float b, float c, float d)
+float ABI_ATTR f_f4 (float a, float b, float c, float d)
 {
   float r=a+b+c+d;
   fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d);
   fflush(out);
   return r;
 }
-float f_f8 (float a, float b, float c, float d, float e, float f,
+float ABI_ATTR f_f8 (float a, float b, float c, float d, float e, float f,
             float g, float h)
 {
   float r=a+b+c+d+e+f+g+h;
@@ -188,7 +203,7 @@
   fflush(out);
   return r;
 }
-float f_f16 (float a, float b, float c, float d, float e, float f, float g, float h,
+float ABI_ATTR f_f16 (float a, float b, float c, float d, float e, float f, float g, float h,
              float i, float j, float k, float l, float m, float n, float o, float p)
 {
   float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p;
@@ -196,7 +211,7 @@
   fflush(out);
   return r;
 }
-float f_f24 (float a, float b, float c, float d, float e, float f, float g, float h,
+float ABI_ATTR f_f24 (float a, float b, float c, float d, float e, float f, float g, float h,
              float i, float j, float k, float l, float m, float n, float o, float p,
              float q, float s, float t, float u, float v, float w, float x, float y)
 {
@@ -207,28 +222,28 @@
 }
 
 /* double tests */
-double d_d (double a)
+double ABI_ATTR d_d (double a)
 {
   double r=a+1.0;
   fprintf(out,"double f(double):(%g)",a);
   fflush(out);
   return r;
 }
-double d_d2 (double a, double b)
+double ABI_ATTR d_d2 (double a, double b)
 {
   double r=a+b;
   fprintf(out,"double f(2*double):(%g,%g)",a,b);
   fflush(out);
   return r;
 }
-double d_d4 (double a, double b, double c, double d)
+double ABI_ATTR d_d4 (double a, double b, double c, double d)
 {
   double r=a+b+c+d;
   fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d);
   fflush(out);
   return r;
 }
-double d_d8 (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d8 (double a, double b, double c, double d, double e, double f,
              double g, double h)
 {
   double r=a+b+c+d+e+f+g+h;
@@ -236,7 +251,7 @@
   fflush(out);
   return r;
 }
-double d_d16 (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d16 (double a, double b, double c, double d, double e, double f,
               double g, double h, double i, double j, double k, double l,
               double m, double n, double o, double p)
 {
@@ -247,7 +262,7 @@
 }
 
 /* pointer tests */
-void* vp_vpdpcpsp (void* a, double* b, char* c, Int* d)
+void* ABI_ATTR vp_vpdpcpsp (void* a, double* b, char* c, Int* d)
 {
   void* ret = (char*)b + 1;
   fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d);
@@ -256,42 +271,42 @@
 }
 
 /* mixed number tests */
-uchar uc_ucsil (uchar a, ushort b, uint c, ulong d)
+uchar ABI_ATTR uc_ucsil (uchar a, ushort b, uint c, ulong d)
 {
   uchar r = (uchar)-1;
   fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d);
   fflush(out);
   return r;
 }
-double d_iidd (int a, int b, double c, double d)
+double ABI_ATTR d_iidd (int a, int b, double c, double d)
 {
   double r = a+b+c+d;
   fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d);
   fflush(out);
   return r;
 }
-double d_iiidi (int a, int b, int c, double d, int e)
+double ABI_ATTR d_iiidi (int a, int b, int c, double d, int e)
 {
   double r = a+b+c+d+e;
   fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e);
   fflush(out);
   return r;
 }
-double d_idid (int a, double b, int c, double d)
+double ABI_ATTR d_idid (int a, double b, int c, double d)
 {
   double r = a+b+c+d;
   fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d);
   fflush(out);
   return r;
 }
-double d_fdi (float a, double b, int c)
+double ABI_ATTR d_fdi (float a, double b, int c)
 {
   double r = a+b+c;
   fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c);
   fflush(out);
   return r;
 }
-ushort us_cdcd (char a, double b, char c, double d)
+ushort ABI_ATTR us_cdcd (char a, double b, char c, double d)
 {
   ushort r = (ushort)(a + b + c + d);
   fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d);
@@ -299,14 +314,14 @@
   return r;
 }
 
-long long ll_iiilli (int a, int b, int c, long long d, int e)
+long long ABI_ATTR ll_iiilli (int a, int b, int c, long long d, int e)
 {
   long long r = (long long)(int)a+(long long)(int)b+(long long)(int)c+d+(long long)(int)e;
   fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e);
   fflush(out);
   return r;
 }
-long long ll_flli (float a, long long b, int c)
+long long ABI_ATTR ll_flli (float a, long long b, int c)
 {
   long long r = (long long)(int)a + b + (long long)c;
   fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c);
@@ -314,35 +329,35 @@
   return r;
 }
 
-float f_fi (float a, int z)
+float ABI_ATTR f_fi (float a, int z)
 {
   float r = a+z;
   fprintf(out,"float f(float,int):(%g,%d)",a,z);
   fflush(out);
   return r;
 }
-float f_f2i (float a, float b, int z)
+float ABI_ATTR f_f2i (float a, float b, int z)
 {
   float r = a+b+z;
   fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z);
   fflush(out);
   return r;
 }
-float f_f3i (float a, float b, float c, int z)
+float ABI_ATTR f_f3i (float a, float b, float c, int z)
 {
   float r = a+b+c+z;
   fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z);
   fflush(out);
   return r;
 }
-float f_f4i (float a, float b, float c, float d, int z)
+float ABI_ATTR f_f4i (float a, float b, float c, float d, int z)
 {
   float r = a+b+c+d+z;
   fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
   fflush(out);
   return r;
 }
-float f_f7i (float a, float b, float c, float d, float e, float f, float g,
+float ABI_ATTR f_f7i (float a, float b, float c, float d, float e, float f, float g,
              int z)
 {
   float r = a+b+c+d+e+f+g+z;
@@ -350,7 +365,7 @@
   fflush(out);
   return r;
 }
-float f_f8i (float a, float b, float c, float d, float e, float f, float g,
+float ABI_ATTR f_f8i (float a, float b, float c, float d, float e, float f, float g,
              float h, int z)
 {
   float r = a+b+c+d+e+f+g+h+z;
@@ -358,7 +373,7 @@
   fflush(out);
   return r;
 }
-float f_f12i (float a, float b, float c, float d, float e, float f, float g,
+float ABI_ATTR f_f12i (float a, float b, float c, float d, float e, float f, float g,
               float h, float i, float j, float k, float l, int z)
 {
   float r = a+b+c+d+e+f+g+h+i+j+k+l+z;
@@ -366,7 +381,7 @@
   fflush(out);
   return r;
 }
-float f_f13i (float a, float b, float c, float d, float e, float f, float g,
+float ABI_ATTR f_f13i (float a, float b, float c, float d, float e, float f, float g,
               float h, float i, float j, float k, float l, float m, int z)
 {
   float r = a+b+c+d+e+f+g+h+i+j+k+l+m+z;
@@ -375,35 +390,35 @@
   return r;
 }
 
-double d_di (double a, int z)
+double ABI_ATTR d_di (double a, int z)
 {
   double r = a+z;
   fprintf(out,"double f(double,int):(%g,%d)",a,z);
   fflush(out);
   return r;
 }
-double d_d2i (double a, double b, int z)
+double ABI_ATTR d_d2i (double a, double b, int z)
 {
   double r = a+b+z;
   fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z);
   fflush(out);
   return r;
 }
-double d_d3i (double a, double b, double c, int z)
+double ABI_ATTR d_d3i (double a, double b, double c, int z)
 {
   double r = a+b+c+z;
   fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z);
   fflush(out);
   return r;
 }
-double d_d4i (double a, double b, double c, double d, int z)
+double ABI_ATTR d_d4i (double a, double b, double c, double d, int z)
 {
   double r = a+b+c+d+z;
   fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z);
   fflush(out);
   return r;
 }
-double d_d7i (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d7i (double a, double b, double c, double d, double e, double f,
               double g, int z)
 {
   double r = a+b+c+d+e+f+g+z;
@@ -411,7 +426,7 @@
   fflush(out);
   return r;
 }
-double d_d8i (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d8i (double a, double b, double c, double d, double e, double f,
               double g, double h, int z)
 {
   double r = a+b+c+d+e+f+g+h+z;
@@ -419,7 +434,7 @@
   fflush(out);
   return r;
 }
-double d_d12i (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d12i (double a, double b, double c, double d, double e, double f,
                double g, double h, double i, double j, double k, double l,
                int z)
 {
@@ -428,7 +443,7 @@
   fflush(out);
   return r;
 }
-double d_d13i (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d13i (double a, double b, double c, double d, double e, double f,
                double g, double h, double i, double j, double k, double l,
                double m, int z)
 {
@@ -439,55 +454,55 @@
 }
 
 /* small structure return tests */
-Size1 S1_v (void)
+Size1 ABI_ATTR S1_v (void)
 {
   fprintf(out,"Size1 f(void):");
   fflush(out);
   return Size1_1;
 }
-Size2 S2_v (void)
+Size2 ABI_ATTR S2_v (void)
 {
   fprintf(out,"Size2 f(void):");
   fflush(out);
   return Size2_1;
 }
-Size3 S3_v (void)
+Size3 ABI_ATTR S3_v (void)
 {
   fprintf(out,"Size3 f(void):");
   fflush(out);
   return Size3_1;
 }
-Size4 S4_v (void)
+Size4 ABI_ATTR S4_v (void)
 {
   fprintf(out,"Size4 f(void):");
   fflush(out);
   return Size4_1;
 }
-Size7 S7_v (void)
+Size7 ABI_ATTR S7_v (void)
 {
   fprintf(out,"Size7 f(void):");
   fflush(out);
   return Size7_1;
 }
-Size8 S8_v (void)
+Size8 ABI_ATTR S8_v (void)
 {
   fprintf(out,"Size8 f(void):");
   fflush(out);
   return Size8_1;
 }
-Size12 S12_v (void)
+Size12 ABI_ATTR S12_v (void)
 {
   fprintf(out,"Size12 f(void):");
   fflush(out);
   return Size12_1;
 }
-Size15 S15_v (void)
+Size15 ABI_ATTR S15_v (void)
 {
   fprintf(out,"Size15 f(void):");
   fflush(out);
   return Size15_1;
 }
-Size16 S16_v (void)
+Size16 ABI_ATTR S16_v (void)
 {
   fprintf(out,"Size16 f(void):");
   fflush(out);
@@ -495,7 +510,7 @@
 }
 
 /* structure tests */
-Int I_III (Int a, Int b, Int c)
+Int ABI_ATTR I_III (Int a, Int b, Int c)
 {
   Int r;
   r.x = a.x + b.x + c.x;
@@ -503,7 +518,7 @@
   fflush(out);
   return r;
 }
-Char C_CdC (Char a, double b, Char c)
+Char ABI_ATTR C_CdC (Char a, double b, Char c)
 {
   Char r;
   r.x = (a.x + c.x)/2;
@@ -511,7 +526,7 @@
   fflush(out);
   return r;
 }
-Float F_Ffd (Float a, float b, double c)
+Float ABI_ATTR F_Ffd (Float a, float b, double c)
 {
   Float r;
   r.x = (float) (a.x + b + c);
@@ -519,7 +534,7 @@
   fflush(out);
   return r;
 }
-Double D_fDd (float a, Double b, double c)
+Double ABI_ATTR D_fDd (float a, Double b, double c)
 {
   Double r;
   r.x = a + b.x + c;
@@ -527,7 +542,7 @@
   fflush(out);
   return r;
 }
-Double D_Dfd (Double a, float b, double c)
+Double ABI_ATTR D_Dfd (Double a, float b, double c)
 {
   Double r;
   r.x = a.x + b + c;
@@ -535,7 +550,7 @@
   fflush(out);
   return r;
 }
-J J_JiJ (J a, int b, J c)
+J ABI_ATTR J_JiJ (J a, int b, J c)
 {
   J r;
   r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2;
@@ -543,7 +558,7 @@
   fflush(out);
   return r;
 }
-T T_TcT (T a, char b, T c)
+T ABI_ATTR T_TcT (T a, char b, T c)
 {
   T r;
   r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2];
@@ -551,7 +566,7 @@
   fflush(out);
   return r;
 }
-X X_BcdB (B a, char b, double c, B d)
+X ABI_ATTR X_BcdB (B a, char b, double c, B d)
 {
   static X xr={"return val",'R'};
   X r;
@@ -568,49 +583,49 @@
    and partially on the stack. Different ABIs pass between 4 and 8 arguments
    (or none) in general-purpose argument registers. */
 
-long l_l0K (K b, long c)
+long ABI_ATTR l_l0K (K b, long c)
 {
   long r = b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l1K (long a1, K b, long c)
+long ABI_ATTR l_l1K (long a1, K b, long c)
 {
   long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l2K (long a1, long a2, K b, long c)
+long ABI_ATTR l_l2K (long a1, long a2, K b, long c)
 {
   long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l3K (long a1, long a2, long a3, K b, long c)
+long ABI_ATTR l_l3K (long a1, long a2, long a3, K b, long c)
 {
   long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l4K (long a1, long a2, long a3, long a4, K b, long c)
+long ABI_ATTR l_l4K (long a1, long a2, long a3, long a4, K b, long c)
 {
   long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l5K (long a1, long a2, long a3, long a4, long a5, K b, long c)
+long ABI_ATTR l_l5K (long a1, long a2, long a3, long a4, long a5, K b, long c)
 {
   long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c);
   fflush(out);
   return r;
 }
-long l_l6K (long a1, long a2, long a3, long a4, long a5, long a6, K b, long c)
+long ABI_ATTR l_l6K (long a1, long a2, long a3, long a4, long a5, long a6, K b, long c)
 {
   long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c;
   fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c);
@@ -620,7 +635,7 @@
 /* These tests is crafted on the knowledge that for all known ABIs:
    * 17 > number of floating-point argument registers,
    * 3 < number of general-purpose argument registers < 3 + 6. */
-float f_f17l3L (float a, float b, float c, float d, float e, float f, float g,
+float ABI_ATTR f_f17l3L (float a, float b, float c, float d, float e, float f, float g,
                 float h, float i, float j, float k, float l, float m, float n,
                 float o, float p, float q,
                 long s, long t, long u, L z)
@@ -630,7 +645,7 @@
   fflush(out);
   return r;
 }
-double d_d17l3L (double a, double b, double c, double d, double e, double f,
+double ABI_ATTR d_d17l3L (double a, double b, double c, double d, double e, double f,
                  double g, double h, double i, double j, double k, double l,
                  double m, double n, double o, double p, double q,
                  long s, long t, long u, L z)
@@ -641,42 +656,42 @@
   return r;
 }
 
-long long ll_l2ll (long a1, long a2, long long b, long c)
+long long ABI_ATTR ll_l2ll (long a1, long a2, long long b, long c)
 {
   long long r = (long long) (a1 + a2) + b + c;
   fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   return r;
 }
-long long ll_l3ll (long a1, long a2, long a3, long long b, long c)
+long long ABI_ATTR ll_l3ll (long a1, long a2, long a3, long long b, long c)
 {
   long long r = (long long) (a1 + a2 + a3) + b + c;
   fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   return r;
 }
-long long ll_l4ll (long a1, long a2, long a3, long a4, long long b, long c)
+long long ABI_ATTR ll_l4ll (long a1, long a2, long a3, long a4, long long b, long c)
 {
   long long r = (long long) (a1 + a2 + a3 + a4) + b + c;
   fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   return r;
 }
-long long ll_l5ll (long a1, long a2, long a3, long a4, long a5, long long b, long c)
+long long ABI_ATTR ll_l5ll (long a1, long a2, long a3, long a4, long a5, long long b, long c)
 {
   long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c;
   fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   return r;
 }
-long long ll_l6ll (long a1, long a2, long a3, long a4, long a5, long a6, long long b, long c)
+long long ABI_ATTR ll_l6ll (long a1, long a2, long a3, long a4, long a5, long a6, long long b, long c)
 {
   long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c;
   fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c);
   fflush(out);
   return r;
 }
-long long ll_l7ll (long a1, long a2, long a3, long a4, long a5, long a6, long a7, long long b, long c)
+long long ABI_ATTR ll_l7ll (long a1, long a2, long a3, long a4, long a5, long a6, long a7, long long b, long c)
 {
   long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c;
   fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c);
@@ -684,42 +699,42 @@
   return r;
 }
 
-double d_l2d (long a1, long a2, double b, long c)
+double ABI_ATTR d_l2d (long a1, long a2, double b, long c)
 {
   double r = (double) (a1 + a2) + b + c;
   fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c);
   fflush(out);
   return r;
 }
-double d_l3d (long a1, long a2, long a3, double b, long c)
+double ABI_ATTR d_l3d (long a1, long a2, long a3, double b, long c)
 {
   double r = (double) (a1 + a2 + a3) + b + c;
   fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c);
   fflush(out);
   return r;
 }
-double d_l4d (long a1, long a2, long a3, long a4, double b, long c)
+double ABI_ATTR d_l4d (long a1, long a2, long a3, long a4, double b, long c)
 {
   double r = (double) (a1 + a2 + a3 + a4) + b + c;
   fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c);
   fflush(out);
   return r;
 }
-double d_l5d (long a1, long a2, long a3, long a4, long a5, double b, long c)
+double ABI_ATTR d_l5d (long a1, long a2, long a3, long a4, long a5, double b, long c)
 {
   double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c;
   fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c);
   fflush(out);
   return r;
 }
-double d_l6d (long a1, long a2, long a3, long a4, long a5, long a6, double b, long c)
+double ABI_ATTR d_l6d (long a1, long a2, long a3, long a4, long a5, long a6, double b, long c)
 {
   double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c;
   fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c);
   fflush(out);
   return r;
 }
-double d_l7d (long a1, long a2, long a3, long a4, long a5, long a6, long a7, double b, long c)
+double ABI_ATTR d_l7d (long a1, long a2, long a3, long a4, long a5, long a6, long a7, double b, long c)
 {
   double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c;
   fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c);
diff --git a/testsuite/libffi.call/align_stdcall.c b/testsuite/libffi.call/align_stdcall.c
new file mode 100644
index 0000000..5e5cb86
--- /dev/null
+++ b/testsuite/libffi.call/align_stdcall.c
@@ -0,0 +1,46 @@
+/* Area:	ffi_call
+   Purpose:	Check for proper argument alignment.
+   Limitations:	none.
+   PR:		none.
+   Originator:	<twalljava@java.net> (from many_win32.c) */
+
+/* { dg-do run } */
+
+#include "ffitest.h"
+
+static float ABI_ATTR align_arguments(int i1,
+                                      double f2,
+                                      int i3,
+                                      double f4)
+{
+  return i1+f2+i3+f4;
+}
+
+int main(void)
+{
+  ffi_cif cif;
+  ffi_type *args[4] = {
+    &ffi_type_sint,
+    &ffi_type_double,
+    &ffi_type_sint,
+    &ffi_type_double
+  };
+  double fa[2] = {1,2};
+  int ia[2] = {1,2};
+  void *values[4] = {&ia[0], &fa[0], &ia[1], &fa[1]};
+  float f, ff;
+
+  /* Initialize the cif */
+  CHECK(ffi_prep_cif(&cif, ABI_NUM, 4,
+		     &ffi_type_float, args) == FFI_OK);
+
+  ff = align_arguments(ia[0], fa[0], ia[1], fa[1]);;
+
+  ffi_call(&cif, FFI_FN(align_arguments), &f, values);
+
+  if (f == ff)
+    printf("align arguments tests ok!\n");
+  else
+    CHECK(0);
+  exit(0);
+}
diff --git a/testsuite/libffi.call/ffitest.h b/testsuite/libffi.call/ffitest.h
index 203d948..cfce1ad 100644
--- a/testsuite/libffi.call/ffitest.h
+++ b/testsuite/libffi.call/ffitest.h
@@ -64,7 +64,7 @@
 #endif
 
 /* MinGW kludge.  */
-#ifdef _WIN64
+#if defined(_WIN64) | defined(_WIN32)
 #define PRIdLL "I64d"
 #define PRIuLL "I64u"
 #else