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,long int i1,double f3,double f4,long int i2,double f5,double f6,long int i3,double f7,double f8,long int i4,double f9,double f10,long int i5,double f11,double f12,long int i6,double f13)14*1fd5a2e1SPrashanth Swaminathan static double many(double f1,
15*1fd5a2e1SPrashanth Swaminathan double f2,
16*1fd5a2e1SPrashanth Swaminathan long int i1,
17*1fd5a2e1SPrashanth Swaminathan double f3,
18*1fd5a2e1SPrashanth Swaminathan double f4,
19*1fd5a2e1SPrashanth Swaminathan long int i2,
20*1fd5a2e1SPrashanth Swaminathan double f5,
21*1fd5a2e1SPrashanth Swaminathan double f6,
22*1fd5a2e1SPrashanth Swaminathan long int i3,
23*1fd5a2e1SPrashanth Swaminathan double f7,
24*1fd5a2e1SPrashanth Swaminathan double f8,
25*1fd5a2e1SPrashanth Swaminathan long int i4,
26*1fd5a2e1SPrashanth Swaminathan double f9,
27*1fd5a2e1SPrashanth Swaminathan double f10,
28*1fd5a2e1SPrashanth Swaminathan long int i5,
29*1fd5a2e1SPrashanth Swaminathan double f11,
30*1fd5a2e1SPrashanth Swaminathan double f12,
31*1fd5a2e1SPrashanth Swaminathan long int i6,
32*1fd5a2e1SPrashanth Swaminathan double f13)
33*1fd5a2e1SPrashanth Swaminathan {
34*1fd5a2e1SPrashanth Swaminathan return ((double) (i1 + i2 + i3 + i4 + i5 + i6) + (f1/f2+f3/f4+f5/f6+f7/f8+f9/f10+f11/f12) * f13);
35*1fd5a2e1SPrashanth Swaminathan }
36*1fd5a2e1SPrashanth Swaminathan
main(void)37*1fd5a2e1SPrashanth Swaminathan int main (void)
38*1fd5a2e1SPrashanth Swaminathan {
39*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
40*1fd5a2e1SPrashanth Swaminathan ffi_type *args[19];
41*1fd5a2e1SPrashanth Swaminathan void *values[19];
42*1fd5a2e1SPrashanth Swaminathan double fa[19];
43*1fd5a2e1SPrashanth Swaminathan long int la[19];
44*1fd5a2e1SPrashanth Swaminathan double f, ff;
45*1fd5a2e1SPrashanth Swaminathan int i;
46*1fd5a2e1SPrashanth Swaminathan
47*1fd5a2e1SPrashanth Swaminathan for (i = 0; i < 19; i++)
48*1fd5a2e1SPrashanth Swaminathan {
49*1fd5a2e1SPrashanth Swaminathan if( (i - 2) % 3 == 0) {
50*1fd5a2e1SPrashanth Swaminathan args[i] = &ffi_type_slong;
51*1fd5a2e1SPrashanth Swaminathan la[i] = (long int) i;
52*1fd5a2e1SPrashanth Swaminathan values[i] = &la[i];
53*1fd5a2e1SPrashanth Swaminathan }
54*1fd5a2e1SPrashanth Swaminathan else {
55*1fd5a2e1SPrashanth Swaminathan args[i] = &ffi_type_double;
56*1fd5a2e1SPrashanth Swaminathan fa[i] = (double) i;
57*1fd5a2e1SPrashanth Swaminathan values[i] = &fa[i];
58*1fd5a2e1SPrashanth Swaminathan }
59*1fd5a2e1SPrashanth Swaminathan }
60*1fd5a2e1SPrashanth Swaminathan
61*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
62*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 19,
63*1fd5a2e1SPrashanth Swaminathan &ffi_type_double, args) == FFI_OK);
64*1fd5a2e1SPrashanth Swaminathan
65*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(many), &f, values);
66*1fd5a2e1SPrashanth Swaminathan
67*1fd5a2e1SPrashanth Swaminathan ff = many(fa[0], fa[1], la[2],
68*1fd5a2e1SPrashanth Swaminathan fa[3], fa[4], la[5],
69*1fd5a2e1SPrashanth Swaminathan fa[6], fa[7], la[8],
70*1fd5a2e1SPrashanth Swaminathan fa[9], fa[10], la[11],
71*1fd5a2e1SPrashanth Swaminathan fa[12], fa[13], la[14],
72*1fd5a2e1SPrashanth Swaminathan fa[15], fa[16], la[17],
73*1fd5a2e1SPrashanth Swaminathan fa[18]);
74*1fd5a2e1SPrashanth Swaminathan if (fabs(f - ff) < FLT_EPSILON)
75*1fd5a2e1SPrashanth Swaminathan exit(0);
76*1fd5a2e1SPrashanth Swaminathan else
77*1fd5a2e1SPrashanth Swaminathan abort();
78*1fd5a2e1SPrashanth Swaminathan }
79