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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [921206-1.c] - Blame information for rev 688

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 688 jeremybenn
double sqrt(double),fabs(double),sin(double);
2
int sxs;
3
int sys;
4
f()
5
{
6
  int l;
7
  int sm = -52, sx = 52;
8
  char *smap;
9
  for (l = 0; l < 9; l++)
10
    {
11
      double g;
12
      int cx, cy, gx, gy, x, y;
13
      gx = 2 > g / 3 ? 2 : g / 3;
14
      gy = 2 > g / 3 ? 2 : g / 3;
15
      for (y = 0 > cy - gy ? 0 : cy - gy; y <= (sys - 1 < cy + gy ? sys : cy + gy); y++)
16
        {
17
          int sx = 0 > cx - gx ? 0 : cx - gx;
18
          short *ax = (short *) (y * sxs + sx);
19
 
20
          for (x = sx; x <= (sxs - 1 < cx + gx ? sxs - 1 : cx + gx); x++)
21
            {
22
              double c=2.25, z=sqrt(fabs(1-c)), cz=(c>1?0.0:-10)>z?c>1?0:1:z;
23
            }
24
        }
25
    }
26
  for (l = sm; l <= sx; l++)
27
    smap[l] = l > 0 ? 1 + foo(sin(.1 * l / sx)) : 1 - foo(sin(.1 * l / sm));
28
}

powered by: WebSVN 2.1.0

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