1 /* Area: ffi_call 2 Purpose: Check return value long double. 3 Limitations: none. 4 PR: none. 5 Originator: From the original ffitest.c */ 6 7 /* { dg-do run } */ 8 9 #include "ffitest.h" 10 #include "float.h" 11 12 static long double ldblit(float f) 13 { 14 return (long double) (((long double) f)/ (long double) 3.0); 15 } 16 17 int main (void) 18 { 19 ffi_cif cif; 20 ffi_type *args[MAX_ARGS]; 21 void *values[MAX_ARGS]; 22 float f; 23 long double ld; 24 25 args[0] = &ffi_type_float; 26 values[0] = &f; 27 28 /* Initialize the cif */ 29 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, 30 &ffi_type_longdouble, args) == FFI_OK); 31 32 f = 3.14159; 33 34 #if 1 35 /* This is ifdef'd out for now. long double support under SunOS/gcc 36 is pretty much non-existent. You'll get the odd bus error in library 37 routines like printf(). */ 38 printf ("%Lf\n", ldblit(f)); 39 #endif 40 ld = 666; 41 ffi_call(&cif, FFI_FN(ldblit), &ld, values); 42 43 #if 1 44 /* This is ifdef'd out for now. long double support under SunOS/gcc 45 is pretty much non-existent. You'll get the odd bus error in library 46 routines like printf(). */ 47 printf ("%Lf, %Lf, %Lf, %Lf\n", ld, ldblit(f), ld - ldblit(f), LDBL_EPSILON); 48 #endif 49 50 /* These are not always the same!! Check for a reasonable delta */ 51 if (ld - ldblit(f) < LDBL_EPSILON) 52 puts("long double return value tests ok!"); 53 else 54 CHECK(0); 55 56 exit(0); 57 } 58
