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  }