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/] [complex-1.c] - Rev 308
Go to most recent revision | Compare with Previous | Blame | View Log
double g0 (double x) { return 1.0; } double g1 (double x) { return -1.0; } double g2 (double x) { return 0.0; } __complex__ double xcexp (__complex__ double x) { double r; r = g0 (__real__ x); __real__ x = r * g1 (__imag__ x); __imag__ x = r * g2 (__imag__ x); return x; } main () { __complex__ double x; x = xcexp (1.0i); if (__real__ x != -1.0) abort (); if (__imag__ x != 0.0) abort (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log