1/* -*-c-*- */
2#include "ffitest.h"
3#include <complex.h>
4
5static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c1, float fl2, unsigned int in3, _Complex T_C_TYPE c4)
6{
7  return c1 + fl2 + in3 + c4;
8}
9int main (void)
10{
11  ffi_cif cif;
12  ffi_type *args[MAX_ARGS];
13  void *values[MAX_ARGS];
14  _Complex T_C_TYPE c1, c4, rc, rc2;
15  float fl2;
16  unsigned int in3;
17  args[0] = &T_FFI_TYPE;
18  args[1] = &ffi_type_float;
19  args[2] = &ffi_type_uint;
20  args[3] = &T_FFI_TYPE;
21  values[0] = &c1;
22  values[1] = &fl2;
23  values[2] = &in3;
24  values[3] = &c4;
25
26  /* Initialize the cif */
27  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
28		     &T_FFI_TYPE, args) == FFI_OK);
29  c1 = 127.0 + 255.0 * I;
30  fl2 = 128.0;
31  in3 = 255;
32  c4 = 512.7 + 1024.1 * I;
33
34  ffi_call(&cif, FFI_FN(return_c), &rc, values);
35  rc2 = return_c(c1, fl2, in3, c4);
36  printf ("%f,%fi vs %f,%fi\n",
37	  T_CONV creal (rc), T_CONV cimag (rc),
38	  T_CONV creal (rc2), T_CONV cimag (rc2));
39  CHECK(rc == rc2);
40  exit(0);
41}
42