1 /* This file is distributed under the University of Illinois Open Source
2 License. See license.txt for details. */
3
4 /* { dg-additional-options "--param vect-epilogues-nomask=0" } */
5 /* { dg-require-effective-target vect_float } */
6
7 #include "tsvc.h"
8
s424(struct args_t * func_args)9 real_t s424(struct args_t * func_args)
10 {
11 // storage classes and equivalencing
12 // common and equivalenced variables - overlap
13 // vectorizeable in strips of 64 or less
14
15 // do this again here
16 int vl = 63;
17 xx = flat_2d_array + vl;
18
19 initialise_arrays(__func__);
20
21 for (int nl = 0; nl < 4*iterations; nl++) {
22 for (int i = 0; i < LEN_1D - 1; i++) {
23 xx[i+1] = flat_2d_array[i] + a[i];
24 }
25 dummy(a, b, c, d, e, aa, bb, cc, 1.);
26 }
27
28 return calc_checksum(__func__);
29 }
30
main(int argc,char ** argv)31 int main (int argc, char **argv)
32 {
33 int n1 = 1;
34 int n3 = 1;
35 int* ip;
36 real_t s1,s2;
37 init(&ip, &s1, &s2);
38
39 run(&s424, "s424", NULL);
40
41 return 0;
42 }
43
44 /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } } */