From e9682728a3ec38280c58da47ff2fb21c485d8c74 Mon Sep 17 00:00:00 2001
From: "Kaveh R. Ghazi" <ghazi@caip.rutgers.edu>
Date: Wed, 17 Mar 2004 01:57:09 +0000
Subject: [PATCH] * gcc.dg/torture/builtin-integral-1.c: New test.

From-SVN: r79565
---
 gcc/testsuite/ChangeLog                       |  4 ++
 .../gcc.dg/torture/builtin-integral-1.c       | 57 +++++++++++++++++++
 2 files changed, 61 insertions(+)
 create mode 100644 gcc/testsuite/gcc.dg/torture/builtin-integral-1.c

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 09f98bf3829..e5df14eba57 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-16  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* gcc.dg/torture/builtin-integral-1.c: New test.
+
 2004-03-16  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/14586
diff --git a/gcc/testsuite/gcc.dg/torture/builtin-integral-1.c b/gcc/testsuite/gcc.dg/torture/builtin-integral-1.c
new file mode 100644
index 00000000000..c358449cb9a
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/torture/builtin-integral-1.c
@@ -0,0 +1,57 @@
+/* Copyright (C) 2003  Free Software Foundation.
+
+   Verify that integral FP expressions are optimized.
+
+   Written by Kaveh Ghazi, 2004-03-16.  */
+
+/* { dg-do link } */
+/* { dg-options "-ffast-math" } */
+
+#define PROTOTYPE1(FN) extern double FN(double); extern float FN##f(float); \
+  extern long double FN##l(long double);
+
+PROTOTYPE1(fabs)
+
+void test(int i1, int i2)
+{
+  /* Test that the various FP truncation builtins detect integral
+     arguments.  */
+#define CHECK_FN(MATHFN) \
+ PROTOTYPE1 (MATHFN) \
+ extern void link_failure_##MATHFN(void); \
+ extern void link_failure_##MATHFN##f(void); \
+ extern void link_failure_##MATHFN##l(void); \
+ if (MATHFN(i1) != i1) link_failure_##MATHFN(); \
+ if (MATHFN##f(i1) != i1) link_failure_##MATHFN##f(); \
+ if (MATHFN##l(i1) != i1) link_failure_##MATHFN##l(); \
+
+  CHECK_FN(ceil);
+  CHECK_FN(floor);
+  CHECK_FN(nearbyint);
+  CHECK_FN(round);
+  CHECK_FN(trunc);
+
+  /* Check that various other integral expressions are detected.  */
+#define CHECK_EXPR(EXPR,NAME) \
+ extern void link_failure_##NAME(void); \
+ if (ceill(EXPR) != (EXPR)) link_failure_##NAME(); \
+
+  CHECK_EXPR (5.0, REAL_CST);
+  CHECK_EXPR (5.0F, REAL_CSTf);
+  CHECK_EXPR (5.0L, REAL_CSTl);
+  CHECK_EXPR ((double)i1, FLOAT_EXPR);
+  CHECK_EXPR ((float)i1, FLOAT_EXPRf);
+  CHECK_EXPR ((long double)i1, FLOAT_EXPRl);
+  CHECK_EXPR (fabs(i1), ABS_EXPR);
+  CHECK_EXPR (fabsf(i1), ABS_EXPRf);
+  CHECK_EXPR (fabsl(i1), ABS_EXPRl);
+  CHECK_EXPR (((void)i1,(double)i2), COMPOUND_EXPR);
+  CHECK_EXPR ((double)i1+i2, PLUS_EXPR);
+  CHECK_EXPR ((double)i1-i2, MINUS_EXPR);
+  CHECK_EXPR ((double)i1*i2, MULT_EXPR);
+}
+
+int main (void)
+{
+  return 0;
+}
-- 
2.30.2