OSDN Git Service

2008-11-02 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / sms-3.c
1 /* { dg-do run } */
2 /* { dg-options "-O2 -fmodulo-sched -funroll-loops" } */
3
4 extern void abort (void);
5
6 int X[1000]={0};
7 int Y[1000]={0};
8
9 extern void abort (void);
10
11 int
12 foo (int len, long a)
13 {
14   int i;
15   long res = a;
16
17   len = 1000;
18   for (i = 0; i < len; i++)
19     res += X[i]* Y[i];
20
21   if (res != 601)
22     abort ();
23
24 }
25
26 int
27 main ()
28 {
29   X[0] = Y[1] = 2;
30   Y[0] = X[1] = 21;
31   X[2] = Y[3] = 3;
32   Y[2] = X[3] = 31;
33   X[4] = Y[5] = 4;
34   Y[4] = X[5] = 41;
35
36   foo (6, 3);
37   return 0;
38 }
39