URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [20030804-1.c] - Rev 856
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright (C) 2003 Free Software Foundation. Check that constant folding of mathematical expressions doesn't break anything. Written by Roger Sayle, 3rd August 2003. */ /* { dg-do link } */ /* { dg-options "-O2 -ffast-math" } */ extern void link_error(void); void test(double x) { if (x+x != 2.0*x) link_error (); if (x+x != x*2.0) link_error (); if (x+x+x != 3.0*x) link_error (); if (x+x+x != x*3.0) link_error (); if ((x+x)+x != 3.0*x) link_error (); if ((x+x)+x != x*3.0) link_error (); if (x+(x+x) != 3.0*x) link_error (); if (x+(x+x) != x*3.0) link_error (); if (x+4.0*x != 5.0*x) link_error (); if (x+4.0*x != x*5.0) link_error (); if (x+x*4.0 != 5.0*x) link_error (); if (x+x*4.0 != x*5.0) link_error (); if (4.0*x+x != 5.0*x) link_error (); if (4.0*x+x != x*5.0) link_error (); if (x*4.0+x != 5.0*x) link_error (); if (x*4.0+x != x*5.0) link_error (); if (3.0*x + 5.0*x != 8.0*x) link_error (); if (3.0*x + 5.0*x != x*8.0) link_error (); if (x*3.0 + 5.0*x != 8.0*x) link_error (); if (x*3.0 + 5.0*x != x*8.0) link_error (); if (3.0*x + x*5.0 != 8.0*x) link_error (); if (3.0*x + x*5.0 != x*8.0) link_error (); if (x*3.0 + x*5.0 != 8.0*x) link_error (); if (x*3.0 + x*5.0 != x*8.0) link_error (); } int main() { test(2.0); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log