This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
Another test case
- To: egcs at cygnus dot com
- Subject: Another test case
- From: hjl at lucon dot org (H.J. Lu)
- Date: Tue, 17 Feb 1998 13:20:31 -0800 (PST)
Hi,
Here is another new test case for alpha. I'd like to see it in
1.0.2.
Thanks.
--
H.J. Lu (hjl@gnu.org)
----
Tue Feb 17 08:17:42 1998 H.J. Lu (hjl@gnu.org)
* gcc.dg/980217-1.c: New to test IEEE float on alpha.
--- /dev/null Wed Dec 31 16:00:00 1969
+++ gcc.dg/980217-1.c Tue Feb 17 13:17:25 1998
@@ -0,0 +1,36 @@
+/* Test float on alpha. */
+
+/* { dg-do run { target alpha*-*-* } } */
+/* { dg-options "-mieee -O2" } */
+
+typedef int int32_t __attribute__ ((__mode__ ( __SI__ ))) ;
+typedef union
+{
+ float value;
+ int32_t word;
+} ieee_float_shape_type;
+
+int isinff(float x)
+{
+ int32_t ix,t;
+ ieee_float_shape_type gf_u;
+ gf_u.value = x;
+ ix = gf_u.word;
+ printf ("%x\n", ix);
+ t = ix & 0x7fffffff;
+ t ^= 0x7f800000;
+ t |= -t;
+ return ~(t >> 31) & (1 - ((ix & 0x80000000) >> 30));
+}
+
+main ()
+{
+ float x = 1.0 / 0.0;
+ int i = isinff (x);
+
+ if (i == 0)
+ abort ();
+
+ printf ("%d\n", i);
+ return 0;
+}