1 /* Area: ffi_call 2 Purpose: Check return value float. 3 Limitations: none. 4 PR: none. 5 Originator: <andreast (at) gcc.gnu.org> 20050212 */ 6 7 /* { dg-do run } */ 8 #include "ffitest.h" 9 10 /* Use volatile float to avoid false negative on ix86. See PR target/323. */ 11 static float return_fl(float fl1, float fl2, float fl3, float fl4) 12 { 13 volatile float sum; 14 15 sum = fl1 + fl2 + fl3 + fl4; 16 return sum; 17 } 18 int main (void) 19 { 20 ffi_cif cif; 21 ffi_type *args[MAX_ARGS]; 22 void *values[MAX_ARGS]; 23 float fl1, fl2, fl3, fl4, rfl; 24 volatile float sum; 25 26 args[0] = &ffi_type_float; 27 args[1] = &ffi_type_float; 28 args[2] = &ffi_type_float; 29 args[3] = &ffi_type_float; 30 values[0] = &fl1; 31 values[1] = &fl2; 32 values[2] = &fl3; 33 values[3] = &fl4; 34 35 /* Initialize the cif */ 36 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, 37 &ffi_type_float, args) == FFI_OK); 38 fl1 = 127.0; 39 fl2 = 128.0; 40 fl3 = 255.1; 41 fl4 = 512.7; 42 43 ffi_call(&cif, FFI_FN(return_fl), &rfl, values); 44 printf ("%f vs %f\n", rfl, return_fl(fl1, fl2, fl3, fl4)); 45 46 sum = fl1 + fl2 + fl3 + fl4; 47 CHECK(rfl == sum); 48 exit(0); 49 } 50
