diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5e4d4673d688..b0c74cdbb28f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,8 @@
 Sun Jan 17 00:02:33 1999  Jeffrey A Law  (law@cygnus.com)
 
 	* gcc.c-torture/compile/990117-1.c: New test from Horst von Brand.
+	* gcc.c-torture/compile/990117-2.c: Likewise.
+
 	* gcc.c-torture/execute/990117-1.c: New test from HJ Lu.
 
 Fri Jan 15 02:52:00 1999  Jeffrey A Law  (law@cygnus.com)
diff --git a/gcc/testsuite/gcc.c-torture/compile/990117-2.c b/gcc/testsuite/gcc.c-torture/compile/990117-2.c
new file mode 100644
index 000000000000..8ca9c1ed1192
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/990117-2.c
@@ -0,0 +1,9 @@
+__complex__ float
+f(__complex__ float x)
+{
+  __complex__ float res;
+
+  if (__real__ x == 0.0)
+    res = x;
+  return res;
+}