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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [20030204-1.c] - Blame information for rev 298

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

Line No. Rev Author Line
1 298 jeremybenn
/* PR optimization/8555 */
2
/* { dg-do compile } */
3
/* { dg-options "-O -ffast-math -funroll-loops" } */
4
/* { dg-options "-march=pentium3 -O -ffast-math -funroll-loops" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } */
5
 
6
 
7
float foo (float *a, int i)
8
{
9
  int j;
10
  float x = a[j = i - 1], y;
11
 
12
  for (j = i; --j >= 0; )
13
    if ((y = a[j]) > x)
14
      x = y;
15
 
16
  return x;
17
}

powered by: WebSVN 2.1.0

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