1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check return value double, with many arguments
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: From the original ffitest.c */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
9*1fd5a2e1SPrashanth Swaminathan
10*1fd5a2e1SPrashanth Swaminathan #include <stdlib.h>
11*1fd5a2e1SPrashanth Swaminathan #include <float.h>
12*1fd5a2e1SPrashanth Swaminathan #include <math.h>
13*1fd5a2e1SPrashanth Swaminathan
many(double f1,double f2,double f3,double f4,double f5,double f6,double f7,double f8,double f9,double f10,double f11,double f12,double f13)14*1fd5a2e1SPrashanth Swaminathan static double many(double f1,
15*1fd5a2e1SPrashanth Swaminathan double f2,
16*1fd5a2e1SPrashanth Swaminathan double f3,
17*1fd5a2e1SPrashanth Swaminathan double f4,
18*1fd5a2e1SPrashanth Swaminathan double f5,
19*1fd5a2e1SPrashanth Swaminathan double f6,
20*1fd5a2e1SPrashanth Swaminathan double f7,
21*1fd5a2e1SPrashanth Swaminathan double f8,
22*1fd5a2e1SPrashanth Swaminathan double f9,
23*1fd5a2e1SPrashanth Swaminathan double f10,
24*1fd5a2e1SPrashanth Swaminathan double f11,
25*1fd5a2e1SPrashanth Swaminathan double f12,
26*1fd5a2e1SPrashanth Swaminathan double f13)
27*1fd5a2e1SPrashanth Swaminathan {
28*1fd5a2e1SPrashanth Swaminathan #if 0
29*1fd5a2e1SPrashanth Swaminathan printf("%f %f %f %f %f %f %f %f %f %f %f %f %f\n",
30*1fd5a2e1SPrashanth Swaminathan (double) f1, (double) f2, (double) f3, (double) f4, (double) f5,
31*1fd5a2e1SPrashanth Swaminathan (double) f6, (double) f7, (double) f8, (double) f9, (double) f10,
32*1fd5a2e1SPrashanth Swaminathan (double) f11, (double) f12, (double) f13);
33*1fd5a2e1SPrashanth Swaminathan #endif
34*1fd5a2e1SPrashanth Swaminathan
35*1fd5a2e1SPrashanth Swaminathan return ((f1/f2+f3/f4+f5/f6+f7/f8+f9/f10+f11/f12) * f13);
36*1fd5a2e1SPrashanth Swaminathan }
37*1fd5a2e1SPrashanth Swaminathan
main(void)38*1fd5a2e1SPrashanth Swaminathan int main (void)
39*1fd5a2e1SPrashanth Swaminathan {
40*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
41*1fd5a2e1SPrashanth Swaminathan ffi_type *args[13];
42*1fd5a2e1SPrashanth Swaminathan void *values[13];
43*1fd5a2e1SPrashanth Swaminathan double fa[13];
44*1fd5a2e1SPrashanth Swaminathan double f, ff;
45*1fd5a2e1SPrashanth Swaminathan int i;
46*1fd5a2e1SPrashanth Swaminathan
47*1fd5a2e1SPrashanth Swaminathan for (i = 0; i < 13; i++)
48*1fd5a2e1SPrashanth Swaminathan {
49*1fd5a2e1SPrashanth Swaminathan args[i] = &ffi_type_double;
50*1fd5a2e1SPrashanth Swaminathan values[i] = &fa[i];
51*1fd5a2e1SPrashanth Swaminathan fa[i] = (double) i;
52*1fd5a2e1SPrashanth Swaminathan }
53*1fd5a2e1SPrashanth Swaminathan
54*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
55*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 13,
56*1fd5a2e1SPrashanth Swaminathan &ffi_type_double, args) == FFI_OK);
57*1fd5a2e1SPrashanth Swaminathan
58*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(many), &f, values);
59*1fd5a2e1SPrashanth Swaminathan
60*1fd5a2e1SPrashanth Swaminathan ff = many(fa[0], fa[1],
61*1fd5a2e1SPrashanth Swaminathan fa[2], fa[3],
62*1fd5a2e1SPrashanth Swaminathan fa[4], fa[5],
63*1fd5a2e1SPrashanth Swaminathan fa[6], fa[7],
64*1fd5a2e1SPrashanth Swaminathan fa[8], fa[9],
65*1fd5a2e1SPrashanth Swaminathan fa[10],fa[11],fa[12]);
66*1fd5a2e1SPrashanth Swaminathan if (fabs(f - ff) < FLT_EPSILON)
67*1fd5a2e1SPrashanth Swaminathan exit(0);
68*1fd5a2e1SPrashanth Swaminathan else
69*1fd5a2e1SPrashanth Swaminathan abort();
70*1fd5a2e1SPrashanth Swaminathan }
71