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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pr47473.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR c/47473 */`
2			`/* { dg-do run } */`
3			`/* { dg-options "-std=c99" } */`
4
5			`int`
6			`main (void)`
7			`{`
8			`long double _Complex w = 0.2L - 0.3iL;`
9			`w = w * (0.3L - (0.0F + 1.0iF) * 0.9L);`
10			`if (__builtin_fabsl (__real__ w + 0.21L) > 0.001L`
11			`\|\| __builtin_fabsl (__imag__ w + 0.27L) > 0.001L)`
12			`__builtin_abort ();`
13			`return 0;`
14			`}`