* gcc.dg/980312-1.c: Another new test for fp on PPro.
From-SVN: r18633
+Mon Mar 16 20:01:30 1998 H.J. Lu (hjl@gnu.org)
+
+ * gcc.dg/980312-1.c: Another new test for fp on PPro.
+
Wed Mar 11 13:08:48 1998 Robert Lipe <robertl@dgii.com>
* g77.f-torture/execute/980310-5.f: Deleted. Craig Burley and
--- /dev/null
+/* { dg-do compile { target i?86-*-* } } */
+/* { dg-options "-O2 -mach=pentiumpro" } */
+
+extern __inline double
+__expm1 (double __x)
+{
+ double __temp;
+ __temp = 1.0;
+ return __temp;
+}
+extern __inline double
+__sgn1 (double __x)
+{
+ return __x >= 0.0 ? 1.0 : -1.0;
+}
+double
+tanh (double __x)
+{
+ return __expm1 (__x) * __sgn1 (-__x);
+}