1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check return value float, 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(float f1,float f2,float f3,float f4,float f5,float f6,float f7,float f8,float f9,float f10,float f11,float f12,float f13)14*1fd5a2e1SPrashanth Swaminathan static float ABI_ATTR many(float f1, float f2, float f3, float f4, float f5, float f6, float f7, float f8, float f9, float f10, float f11, float f12, float f13)
15*1fd5a2e1SPrashanth Swaminathan {
16*1fd5a2e1SPrashanth Swaminathan #if 0
17*1fd5a2e1SPrashanth Swaminathan printf("%f %f %f %f %f %f %f %f %f %f %f %f %f\n",
18*1fd5a2e1SPrashanth Swaminathan (double) f1, (double) f2, (double) f3, (double) f4, (double) f5,
19*1fd5a2e1SPrashanth Swaminathan (double) f6, (double) f7, (double) f8, (double) f9, (double) f10,
20*1fd5a2e1SPrashanth Swaminathan (double) f11, (double) f12, (double) f13);
21*1fd5a2e1SPrashanth Swaminathan #endif
22*1fd5a2e1SPrashanth Swaminathan
23*1fd5a2e1SPrashanth Swaminathan return f1+f2+f3+f4+f5+f6+f7+f8+f9+f10+f11+f12+f13;
24*1fd5a2e1SPrashanth Swaminathan }
25*1fd5a2e1SPrashanth Swaminathan
main(void)26*1fd5a2e1SPrashanth Swaminathan int main (void)
27*1fd5a2e1SPrashanth Swaminathan {
28*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
29*1fd5a2e1SPrashanth Swaminathan ffi_type *args[13];
30*1fd5a2e1SPrashanth Swaminathan void *values[13];
31*1fd5a2e1SPrashanth Swaminathan float fa[13];
32*1fd5a2e1SPrashanth Swaminathan float f, ff;
33*1fd5a2e1SPrashanth Swaminathan int i;
34*1fd5a2e1SPrashanth Swaminathan
35*1fd5a2e1SPrashanth Swaminathan for (i = 0; i < 13; i++)
36*1fd5a2e1SPrashanth Swaminathan {
37*1fd5a2e1SPrashanth Swaminathan args[i] = &ffi_type_float;
38*1fd5a2e1SPrashanth Swaminathan values[i] = &fa[i];
39*1fd5a2e1SPrashanth Swaminathan fa[i] = (float) i;
40*1fd5a2e1SPrashanth Swaminathan }
41*1fd5a2e1SPrashanth Swaminathan
42*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
43*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 13,
44*1fd5a2e1SPrashanth Swaminathan &ffi_type_float, args) == FFI_OK);
45*1fd5a2e1SPrashanth Swaminathan
46*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(many), &f, values);
47*1fd5a2e1SPrashanth Swaminathan
48*1fd5a2e1SPrashanth Swaminathan ff = many(fa[0], fa[1],
49*1fd5a2e1SPrashanth Swaminathan fa[2], fa[3],
50*1fd5a2e1SPrashanth Swaminathan fa[4], fa[5],
51*1fd5a2e1SPrashanth Swaminathan fa[6], fa[7],
52*1fd5a2e1SPrashanth Swaminathan fa[8], fa[9],
53*1fd5a2e1SPrashanth Swaminathan fa[10],fa[11],fa[12]);
54*1fd5a2e1SPrashanth Swaminathan
55*1fd5a2e1SPrashanth Swaminathan if (fabs(f - ff) < FLT_EPSILON)
56*1fd5a2e1SPrashanth Swaminathan exit(0);
57*1fd5a2e1SPrashanth Swaminathan else
58*1fd5a2e1SPrashanth Swaminathan abort();
59*1fd5a2e1SPrashanth Swaminathan }
60