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.c-torture/] [execute/] [pr38969.c] - Blame information for rev 301

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

Line No. Rev Author Line
1 297 jeremybenn
__complex__ float
2
__attribute__ ((noinline)) foo (__complex__ float x)
3
{
4
  return x;
5
}
6
 
7
__complex__ float
8
__attribute__ ((noinline)) bar (__complex__ float x)
9
{
10
  return foo (x);
11
}
12
 
13
int main()
14
{
15
  __complex__ float a, b;
16
  __real__ a = 9;
17
  __imag__ a = 42;
18
 
19
  b = bar (a);
20
 
21
  if (a != b)
22
    abort ();
23
 
24
  return 0;
25
}

powered by: WebSVN 2.1.0

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