OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [scop-10.c] - Blame information for rev 301

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
void bar (void);
2
 
3
int toto()
4
{
5
  int i, j, k;
6
  int a[100][100];
7
  int b[100];
8
 
9
  for (i = 1; i < 100; i++)
10
    {
11
      for (j = 1; j < 100; j++)
12
        b[i+j] = b[i+j-1] + 2;
13
 
14
      if (i * 2 == i + 8)
15
        bar ();
16
      else
17
        {
18
          for (j = 1; j < 100; j++)
19
            b[i+j] = b[i+j-1] + 2;
20
          a[i][i] = 2;
21
        }
22
 
23
      for (k = 1; k < 100; k++)
24
        b[i+k] = b[i+k-5] + 2;
25
    }
26
 
27
  return a[3][5] + b[1];
28
}
29
 
30
/* { dg-final { scan-tree-dump-times "number of SCoPs: 3" 1 "graphite"} } */
31
/* { dg-final { cleanup-tree-dump "graphite" } } */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.