gcc/testsuite/gcc.dg/torture/pr69760.c

   1 /* PR tree-optimization/69760 */
   2 /* { dg-do run { target { { *-*-linux* *-*-gnu* } && mmap } } } */
   3 /* { dg-options "-O2" } */
   4
   5 #include <unistd.h>
   6 #include <sys/mman.h>
   7
   8 __attribute__((noinline, noclone)) void
   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
  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 }