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.dg/] [tree-ssa/] [pr23115.c] - Rev 298
Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-O2 -ftree-vectorize" } */ extern void abort (void); #define MIN2(a,b) (((a)<(b)) ? (a) : (b)) #define MAX2(a,b) (((a)>(b)) ? (a) : (b)) double p[2] = { 4., 5. }; int main() { long j; double R, n, x; #if __SIZEOF_DOUBLE__ >= 8 n = 1.e300; x = -1.e300; #else n = 1.e30; x = -1.e30; #endif for( j=0; j < 2; j++ ) { x = MAX2(x,p[j]); n = MIN2(n,p[j]); } R = x-n; if( R < 0.1 ) abort (); return 0; }