URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 816 |
Rev 826 |
/* { dg-do run } */
|
/* { dg-do run } */
|
/* { dg-options "-O2 -ftree-vectorize" } */
|
/* { dg-options "-O2 -ftree-vectorize" } */
|
|
|
extern void abort (void);
|
extern void abort (void);
|
|
|
#define MIN2(a,b) (((a)<(b)) ? (a) : (b))
|
#define MIN2(a,b) (((a)<(b)) ? (a) : (b))
|
#define MAX2(a,b) (((a)>(b)) ? (a) : (b))
|
#define MAX2(a,b) (((a)>(b)) ? (a) : (b))
|
|
|
double p[2] = { 4., 5. };
|
double p[2] = { 4., 5. };
|
|
|
int main()
|
int main()
|
{
|
{
|
long j;
|
long j;
|
double R, n, x;
|
double R, n, x;
|
#if __SIZEOF_DOUBLE__ >= 8
|
#if __SIZEOF_DOUBLE__ >= 8
|
n = 1.e300;
|
n = 1.e300;
|
x = -1.e300;
|
x = -1.e300;
|
#else
|
#else
|
n = 1.e30;
|
n = 1.e30;
|
x = -1.e30;
|
x = -1.e30;
|
#endif
|
#endif
|
for( j=0; j < 2; j++ )
|
for( j=0; j < 2; j++ )
|
{
|
{
|
x = MAX2(x,p[j]);
|
x = MAX2(x,p[j]);
|
n = MIN2(n,p[j]);
|
n = MIN2(n,p[j]);
|
}
|
}
|
R = x-n;
|
R = x-n;
|
|
|
if( R < 0.1 )
|
if( R < 0.1 )
|
abort ();
|
abort ();
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.