diff options
Diffstat (limited to 'gcc/testsuite/gcc.c-torture/execute/ieee')
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/920518-1.c | 8 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/920810-1.c | 3 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/930529-1.c | 27 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c | 23 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/Makefile.in | 12 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/configure.in | 15 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c | 41 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/ieee.exp | 61 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/minuszero.c | 22 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/mzero2.c | 58 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/rbug.c | 41 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/rbug.cexp | 7 | ||||
-rwxr-xr-x | gcc/testsuite/gcc.c-torture/execute/ieee/rbug.x | 7 |
13 files changed, 0 insertions, 325 deletions
diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/920518-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/920518-1.c deleted file mode 100755 index 7f072b2..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/920518-1.c +++ /dev/null @@ -1,8 +0,0 @@ -unsigned u=2147483839;float f0=2147483648e0,f1=2147483904e0; -main() -{ - float f=u; - if(f==f0) - abort(); - exit(0); -} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/920810-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/920810-1.c deleted file mode 100755 index 62d2294..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/920810-1.c +++ /dev/null @@ -1,3 +0,0 @@ -#include <stdio.h> -double normalize(x)double x;{if(x==0)x=0;return x;} -main(){char b[9];sprintf(b,"%g",normalize(-0.0));if(strcmp(b,"0"))abort();exit(0);} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/930529-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/930529-1.c deleted file mode 100755 index b96a3c0..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/930529-1.c +++ /dev/null @@ -1,27 +0,0 @@ -main () -{ - union { - double d; - unsigned char c[8]; - } d; - - d.d = 1.0/7.0; - - if (sizeof (char) * 8 == sizeof (double)) - { - if (d.c[0] == 0x92 && d.c[1] == 0x24 && d.c[2] == 0x49 && d.c[3] == 0x92 - && d.c[4] == 0x24 && d.c[5] == 0x49 && d.c[6] == 0xc2 && d.c[7] == 0x3f) - exit (0); - if (d.c[7] == 0x92 && d.c[6] == 0x24 && d.c[5] == 0x49 && d.c[4] == 0x92 - && d.c[3] == 0x24 && d.c[2] == 0x49 && d.c[1] == 0xc2 && d.c[0] == 0x3f) - exit (0); -#if defined __arm__ || defined __thumb__ - if (d.c[4] == 0x92 && d.c[5] == 0x24 && d.c[6] == 0x49 && d.c[7] == 0x92 - && d.c[0] == 0x24 && d.c[1] == 0x49 && d.c[2] == 0xc2 && d.c[3] == 0x3f) - exit (0); -#endif - abort (); - } - - exit (0); -} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c deleted file mode 100755 index 0465ed5..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c +++ /dev/null @@ -1,23 +0,0 @@ - int main(void) - { - float reale = 1.0f; - float oneplus; - int i; - - if (sizeof (float) != 4) - exit (0); - - for (i = 0; ; i++) - { - oneplus = 1.0f + reale; - if (oneplus == 1.0f) - break; - reale=reale/2.0f; - } - /* Assumes ieee754 accurate arithmetic above. */ - if (i != 24) - abort (); - else - exit (0); - } - diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/Makefile.in b/gcc/testsuite/gcc.c-torture/execute/ieee/Makefile.in deleted file mode 100755 index e6209db..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/Makefile.in +++ /dev/null @@ -1,12 +0,0 @@ -#### host, target, and site specific Makefile frags come in here. - -srcdir = . - -# Nothing to do... -all: - -clean: - -rm -f *.o *.diff *~ *.bad core *.x - -distclean: clean - -rm -f Makefile config.status diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/configure.in b/gcc/testsuite/gcc.c-torture/execute/ieee/configure.in deleted file mode 100755 index 7d7078d..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/configure.in +++ /dev/null @@ -1,15 +0,0 @@ -# This file is a shell script fragment that supplies the information -# necessary to tailor a template configure script into the configure -# script appropriate for this directory. For more information, check -# any existing configure script. - -srctrigger=execute.exp -srcname="DejaGnu" - -# per-host: - -# per-target: - -target_makefile_frag=../config/mt-${target_alias} - -# post-target: diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c deleted file mode 100755 index 4794efc..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c +++ /dev/null @@ -1,41 +0,0 @@ -#include <signal.h> - -double nan = 1.0/0.0 - 1.0/0.0; -double x = 1.0; - -void leave () -{ - exit (0); -} - -main () -{ -#if ! defined (__vax__) && ! defined (_CRAY) - /* Move this line earlier, for architectures (like alpha) that issue - SIGFPE on the first comparisons. */ -#ifndef SIGNAL_SUPPRESS - /* Some machines catches a SIGFPE when a NaN is compared. - Let this test succeed o such machines. */ - signal (SIGFPE, leave); -#endif - /* NaN is an IEEE unordered operand. All these test should be false. */ - if (nan == nan) - abort (); - if (nan != x) - x = 1.0; - else - abort (); - - if (nan < x) - abort (); - if (nan > x) - abort (); - if (nan <= x) - abort (); - if (nan >= x) - abort (); - if (nan == x) - abort (); -#endif - exit (0); -} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/ieee.exp b/gcc/testsuite/gcc.c-torture/execute/ieee/ieee.exp deleted file mode 100755 index 903d5ce..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/ieee.exp +++ /dev/null @@ -1,61 +0,0 @@ -# -# Expect driver script for GCC Regression Tests -# Copyright (C) 1993, 1996 Free Software Foundation -# -# This file is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# Written by Jeffrey Wheat (cassidy@cygnus.com) -# - -# -# These tests come from Torbjorn Granlund's (tege@cygnus.com) -# C torture test suite, and other contributors. -# - -if $tracelevel then { - strace $tracelevel -} - -if [target_info exists ieee_multilib_flags] { - set additional_flags [target_info ieee_multilib_flags]; -} else { - set additional_flags ""; -} - -# We must use -ffloat-store to ensure that excess precision on some machines -# does not cause problems -lappend additional_flags "-ffloat-store" - -# load support procs -load_lib c-torture.exp - -# initialize harness -gcc_init - -# -# main test loop -# - -foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.c]] { - # If we're only testing specific files and this isn't one of them, skip it. - if ![runtest_file_p $runtests $src] then { - continue - } - - c-torture-execute $src $additional_flags -} - -# All done. -gcc_finish diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/minuszero.c b/gcc/testsuite/gcc.c-torture/execute/ieee/minuszero.c deleted file mode 100755 index 8571526..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/minuszero.c +++ /dev/null @@ -1,22 +0,0 @@ -main () -{ - union - { - double d; - unsigned short i[sizeof (double) / sizeof (short)]; - } u; - int a = 0; - int b = -5; - int j; - - u.d = (double) a / b; - - /* Look for the right pattern, but be sloppy since - we don't know the byte order. */ - for (j = 0; j < sizeof (double) / sizeof (short); j++) - { - if (u.i[j] == 0x8000) - exit (0); - } - abort (); -} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/mzero2.c b/gcc/testsuite/gcc.c-torture/execute/ieee/mzero2.c deleted file mode 100755 index 0da53d2..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/mzero2.c +++ /dev/null @@ -1,58 +0,0 @@ -/* Test IEEE +0/-0 rules */ - -static double pzero = +0.0; -static double nzero = -0.0; -static double pinf = +1.0 / 0.0; -static double ninf = -1.0 / 0.0; -static double nan = 0.0 / 0.0; - -void -expect (double value, double expected) -{ - if (expected != expected) /* expected value is Not a number */ - { - if (value == value) /* actual value is a number */ - abort (); - } - - else if (value != value) - abort (); /* actual value is a NaN */ - - else if (memcmp ((void *)&value, (void *)&expected, sizeof (double)) != 0) - abort (); /* values don't match */ -} - -main () -{ - expect (pzero + pzero, pzero); - expect (pzero + nzero, pzero); - expect (nzero + pzero, pzero); - expect (nzero + nzero, nzero); - - expect (pzero - pzero, pzero); - expect (pzero - nzero, pzero); - expect (nzero - pzero, nzero); - expect (nzero - nzero, pzero); - - expect (pzero * pzero, pzero); - expect (pzero * nzero, nzero); - expect (nzero * pzero, nzero); - expect (nzero * nzero, pzero); - - expect (+1.00 * pzero, pzero); - expect (-1.00 * pzero, nzero); - expect (+1.00 * nzero, nzero); - expect (-1.00 * nzero, pzero); - - expect (pzero / pzero, nan); - expect (pzero / nzero, nan); - expect (nzero / pzero, nan); - expect (nzero / nzero, nan); - - expect (+1.00 / pzero, pinf); - expect (-1.00 / pzero, ninf); - expect (+1.00 / nzero, ninf); - expect (-1.00 / nzero, pinf); - - exit (0); -} diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.c b/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.c deleted file mode 100755 index a91a99e..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.c +++ /dev/null @@ -1,41 +0,0 @@ -double d (unsigned long long k) -{ - double x; - - x = (double) k; - return x; -} - -float s (unsigned long long k) -{ - float x; - - x = (float) k; - return x; -} - -main () -{ - unsigned long long int k; - double x; - - /* CYGNUS LOCAL -- meissner/32bit doubles */ - if (sizeof (double) >= 8) - { - k = 0x8693ba6d7d220401ULL; - x = d (k); - k = (unsigned long long) x; - if (k != 0x8693ba6d7d220800ULL) - abort (); - } - /* END CYGNUS LOCAL -- meissner/32bit doubles */ - - k = 0x8234508000000001ULL; - x = s (k); - k = (unsigned long long) x; - if (k != 0x8234510000000000ULL) - abort (); - - exit (0); -} - diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.cexp b/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.cexp deleted file mode 100755 index 0ae0a35..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.cexp +++ /dev/null @@ -1,7 +0,0 @@ -# This 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/ieee/rbug.x b/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.x deleted file mode 100755 index 0ae0a35..0000000 --- a/gcc/testsuite/gcc.c-torture/execute/ieee/rbug.x +++ /dev/null @@ -1,7 +0,0 @@ -# This 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 |