1 /* PR tree-optimization/69760 */
2 /* { dg-do run { target { { *-*-linux* *-*-gnu* *-*-uclinux* } && mmap } } } */
3 /* { dg-options "-O2" } */
4
5 #include <unistd.h>
6 #include <sys/mman.h>
7
8 __attribute__((noinline, noclone)) void
test_func(double * a,int L,int m,int n,int N)9 test_func (double *a, int L, int m, int n, int N)
10 {
11 int i, k;
12 for (i = 0; i < N; i++)
13 {
14 k = i - m;
15 if (k >= 0 && k < n)
16 a[L * k] = 0.0;
17 }
18 }
19
20 int
main()21 main ()
22 {
23 char *p;
24 int L, m, n, N;
25 long l;
26 L = 10000000;
27 n = 4;
28 N = 100 * n;
29 long pgsz = sysconf(_SC_PAGESIZE);
30 if (pgsz < sizeof (double) || pgsz > L * sizeof (double))
31 return 0;
32 p = mmap ((void *) 0, L * n * sizeof (double), PROT_NONE,
33 MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
34 if (p == MAP_FAILED)
35 return 0;
36 if (mprotect (p, pgsz, PROT_READ | PROT_WRITE))
37 return 0;
38 l = (L * sizeof (double)) / pgsz * pgsz;
39 if (mprotect (p + l, pgsz, PROT_READ | PROT_WRITE))
40 return 0;
41 l = (2 * L * sizeof (double)) / pgsz * pgsz;
42 if (mprotect (p + l, pgsz, PROT_READ | PROT_WRITE))
43 return 0;
44 l = (3 * L * sizeof (double)) / pgsz * pgsz;
45 if (mprotect (p + l, pgsz, PROT_READ | PROT_WRITE))
46 return 0;
47 for (m = 0; m < N; m += n)
48 test_func ((double *) p, L, m, n, N);
49 return 0;
50 }
51