OSDN Git Service

Delete questionable tests
authorlaw <law@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 3 Aug 1999 08:19:35 +0000 (08:19 +0000)
committerlaw <law@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 3 Aug 1999 08:19:35 +0000 (08:19 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@28451 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/gcc.c-torture/execute/920715-1.c [deleted file]
gcc/testsuite/gcc.c-torture/execute/920715-1.x [deleted file]
gcc/testsuite/gcc.c-torture/execute/980618-2.c [deleted file]

diff --git a/gcc/testsuite/gcc.c-torture/execute/920715-1.c b/gcc/testsuite/gcc.c-torture/execute/920715-1.c
deleted file mode 100644 (file)
index 8b0f54b..0000000
+++ /dev/null
@@ -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;
-}
diff --git a/gcc/testsuite/gcc.c-torture/execute/920715-1.x b/gcc/testsuite/gcc.c-torture/execute/920715-1.x
deleted file mode 100644 (file)
index e6ecdff..0000000
+++ /dev/null
@@ -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
diff --git a/gcc/testsuite/gcc.c-torture/execute/980618-2.c b/gcc/testsuite/gcc.c-torture/execute/980618-2.c
deleted file mode 100644 (file)
index c97e19e..0000000
+++ /dev/null
@@ -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);
-}