1 /* Test for vector sincos/sincosf ABI.
2 Copyright (C) 2016-2022 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19 #include <math.h>
20 #include <support/test-driver.h>
21
22 /* Since libsupport_nonshared.a is placed before test-libmvec*.o, which
23 defines do_test, reference support_test_main here to include it to
24 avoid undefined reference to support_test_main. The libmvec ABI test
25 doesn't need other symbols in libsupport_nonshared.a. */
26 __typeof (support_test_main) *support_test_main_p = support_test_main;
27
28 #define N 1000
29 LIBMVEC_TYPE x[N], s[N], c[N];
30 LIBMVEC_TYPE *s_ptrs[N];
31 LIBMVEC_TYPE *c_ptrs[N];
32
33 int
test_vector_abi(void)34 test_vector_abi (void)
35 {
36 int i;
37 for(i = 0; i < N; i++)
38 {
39 x[i] = i / 3;
40 s_ptrs[i] = &s[i];
41 c_ptrs[i] = &c[i];
42 }
43
44 #pragma omp simd
45 for(i = 0; i < N; i++)
46 LIBMVEC_SINCOS (x[i], s_ptrs[i], c_ptrs[i]);
47
48 return 0;
49 }
50