111
|
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 }
|