diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c0d49dccb69..e95122608dd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/testsuite/gcc.dg/980312-1.c b/gcc/testsuite/gcc.dg/980312-1.c
new file mode 100644
index 00000000000..e5894d0e2cf
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/980312-1.c
@@ -0,0 +1,20 @@
+/* { 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);
+}