* execute/20000403-1.c: New test.

From-SVN: r32902

gcc/testsuite/gcc.c-torture/ChangeLog

+Mon Apr  3 16:53:52 2000  Hans-Peter Nilsson  <hp@axis.com>
+
+	* execute/20000403-1.c: New test.
+
 2000-04-03  Geoff Keating  <geoffk@cygnus.com>
 
 	* execute/20000402-1.c: New test.

gcc/testsuite/gcc.c-torture/execute/20000403-1.c

+extern unsigned long aa[], bb[];
+
+int seqgt (unsigned long a, unsigned short win, unsigned long b);
+
+int seqgt2 (unsigned long a, unsigned short win, unsigned long b);
+
+main()
+{
+  if (! seqgt (*aa, 0x1000, *bb) || ! seqgt2 (*aa, 0x1000, *bb))
+    abort ();
+
+  exit (0);
+}
+
+int
+seqgt (unsigned long a, unsigned short win, unsigned long b)
+{
+  return (long) ((a + win) - b) > 0;
+}
+
+int
+seqgt2 (unsigned long a, unsigned short win, unsigned long b)
+{
+  long l = ((a + win) - b);
+  return l > 0;
+}
+
+unsigned long aa[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff };
+unsigned long bb[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff };