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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [opt/] [nrv17.C] - Blame information for rev 774

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

Line No. Rev Author Line
1 693 jeremybenn
// { dg-do run }
2
 
3
#include 
4
#include 
5
 
6
void __attribute__((noinline))
7
h(std::complex x)
8
{
9
  if (x.real() != 2.0)
10
    std::abort ();
11
}
12
 
13
void __attribute__((noinline))
14
g(std::complex x)
15
{
16
  if (x.real() != 0.5)
17
    std::abort ();
18
}
19
 
20
void __attribute__((noinline))
21
f(std::complex x)
22
{
23
  h (x);
24
  x = 1.0 / x;
25
  g (x);
26
}
27
 
28
int main()
29
{
30
  f(2.0);
31
  return 0;
32
}

powered by: WebSVN 2.1.0

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