gcc/testsuite/gcc.dg/pr32176.c

   1 /* Contributed by Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>  */
   2
   3 /* { dg-do compile } */
   4 /* { dg-options "-O2 -fprefetch-loop-arrays -w" } */
   5 /* { dg-additional-options "-march=i686 -msse" { target { { i?86-*-* x86_64-*-* } && ia32 } } } */
   6
   7 extern void _gfortran_abort ();
   8
   9 void foo (void)
  10 {
  11   int i, m;
  12   float xa[21];
  13
  14   m = 0;
  15   while (1)
  16     {
  17       i = 0;
  18       while (1)
  19         {
  20           if (xa[(long int)i] == xa[(long int)(i+m)])
  21             _gfortran_abort ();
  22           if (i == 10)
  23             break;
  24           i++;
  25         }
  26       if (m == 10)
  27         break;
  28       m++;
  29     }
  30 }