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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20020411-1.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn
/* PR optimization/6177
2
   This testcase ICEd because expr.c did not expect to see a CONCAT
3
   as array rtl.  */
4
 
5
extern void abort (void);
6
extern void exit (int);
7
 
8
__complex__ float foo (void)
9
{
10
  __complex__ float f[1];
11
  __real__ f[0] = 1.0;
12
  __imag__ f[0] = 1.0;
13
  f[0] = __builtin_conjf (f[0]);
14
  return f[0];
15
}
16
 
17
int main (void)
18
{
19
  __complex__ double d[1];
20
  d[0] = foo ();
21
  if (__real__ d[0] != 1.0
22
      || __imag__ d[0] != -1.0)
23
    abort ();
24
  exit (0);
25
}

powered by: WebSVN 2.1.0

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