parent
d9a3175816
commit
255433ed94
|
@ -1,67 +0,0 @@
|
||||||
double ran(int *idum);
|
|
||||||
main ()
|
|
||||||
{
|
|
||||||
double vp = 0.0048;
|
|
||||||
double vx;
|
|
||||||
double vy;
|
|
||||||
double vz;
|
|
||||||
|
|
||||||
/* CYGNUS LOCAL -- meissner/32bit doubles */
|
|
||||||
/* This test requires double precision, so for hosts that don't offer
|
|
||||||
that much precision, just ignore this test. */
|
|
||||||
if (sizeof (double) < 8)
|
|
||||||
exit (0);
|
|
||||||
/* END CYGNUS LOCAL -- meissner/32bit doubles */
|
|
||||||
|
|
||||||
maxbol(vp, &vx , &vy , &vz );
|
|
||||||
if (vx < 0.001316505673 || vx > 0.001316505674)
|
|
||||||
abort();
|
|
||||||
if (vy < 0.002731492112 || vy > 0.002731492113)
|
|
||||||
abort();
|
|
||||||
if (vz < 0.001561454099 || vz > 0.001561454100)
|
|
||||||
abort();
|
|
||||||
exit(0);
|
|
||||||
}
|
|
||||||
maxbol(double vp , double *vx , double *vy , double *vz)
|
|
||||||
{
|
|
||||||
int idum=0;
|
|
||||||
int i;
|
|
||||||
double temp;
|
|
||||||
|
|
||||||
*vx=vp*ran( &idum );
|
|
||||||
*vy=vp*ran( &idum );
|
|
||||||
*vz=vp*ran( &idum );
|
|
||||||
}
|
|
||||||
|
|
||||||
double ran(int *idum)
|
|
||||||
{
|
|
||||||
static long ix1,ix2,ix3;
|
|
||||||
static double r[97];
|
|
||||||
double temp;
|
|
||||||
static int iff=0;
|
|
||||||
int j;
|
|
||||||
|
|
||||||
if(*idum<0 || iff==0){
|
|
||||||
iff=1;
|
|
||||||
ix1=(54773-(*idum))%259200;
|
|
||||||
ix1=(7141*ix1+54773)%259200;
|
|
||||||
ix2=ix1 %134456;
|
|
||||||
ix1=(7141*ix1+54773)%259200;
|
|
||||||
ix3=ix1 %243000;
|
|
||||||
for(j=0; j<97; j++){
|
|
||||||
ix1=(7141*ix1+54773)%259200;
|
|
||||||
ix2=(8121*ix2+28411)%134456;
|
|
||||||
r[j]=(ix1+ix2*(1.0/134456))*(1.0/259200);
|
|
||||||
}
|
|
||||||
*idum=1;
|
|
||||||
}
|
|
||||||
ix1=(7141*ix1+54773)%259200;
|
|
||||||
ix2=(8121*ix2+28411)%134456;
|
|
||||||
ix3=(4561*ix3+51349)%243000;
|
|
||||||
j=((97*ix3)/243000);
|
|
||||||
if(j >= 97 && j < 0)
|
|
||||||
abort();
|
|
||||||
temp=r[j];
|
|
||||||
r[j]=(ix1+ix2*(1.0/134456))*(1.0/259200);
|
|
||||||
return temp;
|
|
||||||
}
|
|
|
@ -1,7 +0,0 @@
|
||||||
# It doesn't work on d10v if doubles are not 64 bits
|
|
||||||
|
|
||||||
if { [istarget "d10v-*-*"] && ! [string-match "*-mdouble64*" $CFLAGS] } {
|
|
||||||
set torture_execute_xfail "d10v-*-*"
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0
|
|
|
@ -1,66 +0,0 @@
|
||||||
typedef char CHAR;
|
|
||||||
typedef short SHORT;
|
|
||||||
typedef int INT;
|
|
||||||
typedef long LONG;
|
|
||||||
typedef float FLOAT;
|
|
||||||
typedef unsigned char UCHAR;
|
|
||||||
typedef unsigned short USHORT;
|
|
||||||
typedef unsigned int UINT;
|
|
||||||
typedef unsigned long ULONG;
|
|
||||||
typedef double DOUBLE;
|
|
||||||
#if __STDC__
|
|
||||||
typedef signed char SCHAR;
|
|
||||||
typedef long double LDOUBLE;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
int
|
|
||||||
main ()
|
|
||||||
{
|
|
||||||
typedef union
|
|
||||||
{
|
|
||||||
CHAR c;
|
|
||||||
SHORT s;
|
|
||||||
INT i;
|
|
||||||
UCHAR uc;
|
|
||||||
USHORT us;
|
|
||||||
UINT ui;
|
|
||||||
LONG l;
|
|
||||||
ULONG ul;
|
|
||||||
FLOAT f;
|
|
||||||
DOUBLE d;
|
|
||||||
#if __STDC__
|
|
||||||
SCHAR sc;
|
|
||||||
LDOUBLE ld;
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
D;
|
|
||||||
auto D D1;
|
|
||||||
D1.c = 7;
|
|
||||||
{
|
|
||||||
auto struct
|
|
||||||
{
|
|
||||||
CHAR c;
|
|
||||||
SHORT s;
|
|
||||||
INT i;
|
|
||||||
UCHAR uc;
|
|
||||||
USHORT us;
|
|
||||||
UINT ui;
|
|
||||||
LONG l;
|
|
||||||
ULONG ul;
|
|
||||||
FLOAT f;
|
|
||||||
DOUBLE d;
|
|
||||||
#if __STDC__
|
|
||||||
SCHAR sc;
|
|
||||||
LDOUBLE ld;
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
F;
|
|
||||||
F.c = 7;
|
|
||||||
if ((D1.c && F.c) != 1)
|
|
||||||
abort ();
|
|
||||||
if ((F.c && D1.c) != 1)
|
|
||||||
abort ();
|
|
||||||
}
|
|
||||||
|
|
||||||
exit (0);
|
|
||||||
}
|
|
Loading…
Reference in New Issue