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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [20010405-1.c] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
__inline__ double bar(double *x)
2
{
3
  static double a;
4
  a = *x >= 0 ? *x : -*x;
5
  return a;
6
}
7
 
8
int main(void)
9
{
10
  extern double bar();
11
  double a;
12
  static double b;
13
  int r;
14
  for (r = 1; r < 3; r++) {
15
    a = 1.0;
16
    b = bar(&a);
17
  }
18
  return 0;
19
}

powered by: WebSVN 2.1.0

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