Re: 2 testsuite additions and a patch

[daemon at cygnus dot com]

Sorry, I am unable to deliver your mail note to egcs-patches@cygnus.com,
that list name is no longer used.  Please try resending your mail
note to the new list name:  egcs-patches@egcs.cygnus.com.

If you have any questions about this, send mail to sourcemaster@cygnus.com.
This is a machine-generated message.

Here is a copy of the note you sent.
-----------------------------------------------------------------------------

I committed the following changes to the testsuite:

1999-07-27  Michael Meissner  <meissner@cygnus.com>

	* execute/ieee/fp-cmp-2.c: New file, clone from fp-cmp-1.c,
	converting double to float.

	* execute/ieee/fp-cmp-3.c: New file, clone from fp-cmp-1.c,
	converting double to long double.

	* noncompile/920507-1.c (x): Rename asm register from fr1 to
	unknown_register, since fr1 is a legitimate register on some
	machines.

*** /dev/null	Tue May  5 16:32:27 1998
--- gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-2.c	Tue Jul 27 10:53:57 1999
***************
*** 0 ****
--- 1,41 ----
+ #include <signal.h>
+ 
+ float nan = 1.0f/0.0f - 1.0f/0.0f;
+ float x = 1.0f;
+ 
+ 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);
+ }
*** /dev/null	Tue May  5 16:32:27 1998
--- gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-3.c	Tue Jul 27 10:59:56 1999
***************
*** 0 ****
--- 1,41 ----
+ #include <signal.h>
+ 
+ long double nan = 1.0l/0.0l - 1.0l/0.0l;
+ long double x = 1.0l;
+ 
+ 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);
+ }
*** gcc/testsuite/gcc.c-torture/noncompile/920507-1.c.~1~	Wed Dec 16 17:17:10 1998
--- gcc/testsuite/gcc.c-torture/noncompile/920507-1.c	Tue Jul 27 10:55:07 1999
***************
*** 1 ****
! x(){register*a asm("fr1");int*v[1]={a};}
--- 1 ----
! x(){register*a asm("unknown_register");int*v[1]={a};}

-- 
Michael Meissner, Cygnus Solutions
PMB 198, 174 Littleton Road #3, Westford, Massachusetts 01886
email: meissner@cygnus.com	phone: 978-486-9304	fax: 978-692-4482