Delete questionable tests

From-SVN: r28451
This commit is contained in:
Jeff Law 1999-08-03 02:19:35 -06:00
parent d9a3175816
commit 255433ed94
3 changed files with 0 additions and 140 deletions

View File

@ -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;
}

View File

@ -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

View File

@ -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);
}