diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4e9be0bc287..e5d3bef34f1 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,10 +1,11 @@
 Wed Mar 18 16:22:22 1998  Jim Wilson  <wilson@cygnus.com>
 
+	* gcc.dg/980313-1.c: New test for fp conditional move on PPro.
 	* gcc.dg/980312-1.c: Fix typo in -march command.
 
 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.
+	* gcc.dg/980312-1.c: New test for fp conditional move on PPro.
 
 Wed Mar 11 13:08:48 1998  Robert Lipe  <robertl@dgii.com>
 
diff --git a/gcc/testsuite/gcc.dg/980313-1.c b/gcc/testsuite/gcc.dg/980313-1.c
new file mode 100644
index 00000000000..746e4631b08
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/980313-1.c
@@ -0,0 +1,21 @@
+/* { dg-do compile { target i?86-*-* } } */
+/* { dg-options "-O2 -march=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)
+{
+  register double __exm1 = __expm1 (__x);
+  return __exm1 / (__exm1 + 2.0) * __sgn1 (-__x);
+}