1  /* Area:	closure_call
       2     Purpose:	Check return value float.
       3     Limitations:	none.
       4     PR:		41908.
       5     Originator:	<rfm@gnu.org> 20091102	 */
       6  
       7  /* { dg-do run } */
       8  #include "ffitest.h"
       9  
      10  typedef struct cls_struct_combined {
      11    float a;
      12    float b;
      13    float c;
      14    float d;
      15  } cls_struct_combined;
      16  
      17  static void cls_struct_combined_fn(struct cls_struct_combined arg)
      18  {
      19    printf("%g %g %g %g\n",
      20  	 arg.a, arg.b,
      21  	 arg.c, arg.d);
      22    fflush(stdout);
      23  }
      24  
      25  static void
      26  cls_struct_combined_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
      27          void** args, void* userdata __UNUSED__)
      28  {
      29    struct cls_struct_combined a0;
      30  
      31    a0 = *(struct cls_struct_combined*)(args[0]);
      32  
      33    cls_struct_combined_fn(a0);
      34  }
      35  
      36  
      37  int main (void)
      38  {
      39    ffi_cif cif;
      40    void *code;
      41    ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
      42    ffi_type* cls_struct_fields0[5];
      43    ffi_type cls_struct_type0;
      44    ffi_type* dbl_arg_types[5];
      45  
      46    struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
      47  
      48    cls_struct_type0.size = 0;
      49    cls_struct_type0.alignment = 0;
      50    cls_struct_type0.type = FFI_TYPE_STRUCT;
      51    cls_struct_type0.elements = cls_struct_fields0;
      52  
      53    cls_struct_fields0[0] = &ffi_type_float;
      54    cls_struct_fields0[1] = &ffi_type_float;
      55    cls_struct_fields0[2] = &ffi_type_float;
      56    cls_struct_fields0[3] = &ffi_type_float;
      57    cls_struct_fields0[4] = NULL;
      58  
      59    dbl_arg_types[0] = &cls_struct_type0;
      60    dbl_arg_types[1] = NULL;
      61  
      62    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ffi_type_void,
      63  		     dbl_arg_types) == FFI_OK);
      64  
      65    CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_combined_gn, NULL, code) == FFI_OK);
      66  
      67    ((void(*)(cls_struct_combined)) (code))(g_dbl);
      68    /* { dg-output "4 5 1 8" } */
      69    exit(0);
      70  }