diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index aad9e85a82ade0d2c19633ed26a0d5c1663e3227..a26ab148457368a7f4feba06cd007d2d6acc1c77 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10056,3 +10056,12 @@ Broken at C::WT-MAKE-CLOSURE.
 	   (sqrt p1)))
 	 n))))
   t)
+
+;;; OpenMCL
+;;; 1/2 is not of type integer
+
+(deftest misc.545
+  (let ((x #c(-1 1/2)))
+    (declare (type (eql #c(-1 1/2)) x))
+    x)
+  #c(-1 1/2))