libffi/testsuite/libffi.complex/many_complex.inc

   1 /* -*-c-*- */
   2 #include "ffitest.h"
   3
   4 #include <stdlib.h>
   5 #include <complex.h>
   6
   7 static _Complex T_C_TYPE many(_Complex T_C_TYPE c1,
   8                               _Complex T_C_TYPE c2,
   9                               _Complex T_C_TYPE c3,
  10                               _Complex T_C_TYPE c4,
  11                               _Complex T_C_TYPE c5,
  12                               _Complex T_C_TYPE c6,
  13                               _Complex T_C_TYPE c7,
  14                               _Complex T_C_TYPE c8,
  15                               _Complex T_C_TYPE c9,
  16                               _Complex T_C_TYPE c10,
  17                               _Complex T_C_TYPE c11,
  18                               _Complex T_C_TYPE c12,
  19                               _Complex T_C_TYPE c13)
  20 {
  21   printf("0 :%f,%fi\n"
  22          "1 :%f,%fi\n"
  23          "2 :%f,%fi\n"
  24          "3 :%f,%fi\n"
  25          "4 :%f,%fi\n"
  26          "5 :%f,%fi\n"
  27          "6 :%f,%fi\n"
  28          "7 :%f,%fi\n"
  29          "8 :%f,%fi\n"
  30          "9 :%f,%fi\n"
  31          "10:%f,%fi\n"
  32          "11:%f,%fi\n"
  33          "12:%f,%fi\n",
  34          T_CONV creal (c1), T_CONV cimag (c1),
  35          T_CONV creal (c2), T_CONV cimag (c2),
  36          T_CONV creal (c3), T_CONV cimag (c3),
  37          T_CONV creal (c4), T_CONV cimag (c4),
  38          T_CONV creal (c5), T_CONV cimag (c5),
  39          T_CONV creal (c6), T_CONV cimag (c6),
  40          T_CONV creal (c7), T_CONV cimag (c7),
  41          T_CONV creal (c8), T_CONV cimag (c8),
  42          T_CONV creal (c9), T_CONV cimag (c9),
  43          T_CONV creal (c10), T_CONV cimag (c10),
  44          T_CONV creal (c11), T_CONV cimag (c11),
  45          T_CONV creal (c12), T_CONV cimag (c12),
  46          T_CONV creal (c13), T_CONV cimag (c13));
  47
  48   return (c1+c2-c3-c4+c5+c6+c7-c8-c9-c10-c11+c12+c13);
  49 }
  50
  51 int main (void)
  52 {
  53   ffi_cif cif;
  54   ffi_type *args[13];
  55   void *values[13];
  56   _Complex T_C_TYPE ca[13];
  57   _Complex T_C_TYPE c, cc;
  58   int i;
  59
  60   for (i = 0; i < 13; i++)
  61     {
  62       args[i] = &T_FFI_TYPE;
  63       values[i] = &ca[i];
  64       ca[i] = i + (-20 - i) * I;
  65     }
  66
  67     /* Initialize the cif */
  68     CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 13, &T_FFI_TYPE, args) == FFI_OK);
  69
  70     ffi_call(&cif, FFI_FN(many), &c, values);
  71
  72     cc =  many(ca[0], ca[1], ca[2], ca[3], ca[4], ca[5], ca[6], ca[7], ca[8],
  73                ca[9], ca[10], ca[11], ca[12]);
  74     CHECK(creal (cc) == creal (c));
  75     CHECK(cimag (cc) == cimag (c));
  76
  77     exit(0);
  78 }