1 /* Area: ffi_call 2 Purpose: Check return value long double. 3 Limitations: none. 4 PR: none. 5 Originator: <andreast@gcc.gnu.org> 20071113 */ 6 /* { dg-do run } */ 7 8 #include "ffitest.h" 9 return_ldl(long double ldl)10static long double return_ldl(long double ldl) 11 { 12 return 2*ldl; 13 } main(void)14int main (void) 15 { 16 ffi_cif cif; 17 ffi_type *args[MAX_ARGS]; 18 void *values[MAX_ARGS]; 19 long double ldl, rldl; 20 21 args[0] = &ffi_type_longdouble; 22 values[0] = &ldl; 23 24 /* Initialize the cif */ 25 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, 26 &ffi_type_longdouble, args) == FFI_OK); 27 28 for (ldl = -127.0; ldl < 127.0; ldl++) 29 { 30 ffi_call(&cif, FFI_FN(return_ldl), &rldl, values); 31 CHECK(rldl == 2 * ldl); 32 } 33 exit(0); 34 } 35