bug testcase for model generation

diff --git a/test/regress/regress0/Makefile.am b/test/regress/regress0/Makefile.am
index b8c2a2f481a3463b2adbb1b26221cdce19798493..973285b552649e2c51b9b85c6f50dee37c3f7e86 100644 (file)
--- a/test/regress/regress0/Makefile.am
+++ b/test/regress/regress0/Makefile.am
@@ -132,7 +132,8 @@ TESTS =     $(SMT_TESTS) $(SMT2_TESTS) $(CVC_TESTS) $(TPTP_TESTS) $(BUG_TESTS)
 
 EXTRA_DIST = $(TESTS) \
        simplification_bug4.smt2.expect \
-       bug216.smt2.expect
+       bug216.smt2.expect \
+       bug382.smt2
 
 if CVC4_BUILD_PROFILE_COMPETITION
 else

diff --git a/test/regress/regress0/bug382.smt2 b/test/regress/regress0/bug382.smt2
new file mode 100644 (file)
index 0000000..d92682d
--- /dev/null
+++ b/test/regress/regress0/bug382.smt2
@@ -0,0 +1,15 @@
+; EXPECT: sat
+; EXPECT: ((x 0))
+; EXPECT: ((x 0))
+; EXPECT: (((f x) 1))
+; EXPECT: (((f x) 1))
+; EXIT: 10
+(set-option :produce-models true)
+(set-logic QF_UFLIA)
+(declare-fun f (Int) Int)
+(declare-fun x () Int)
+(check-sat)
+(get-value (x)); returns 0
+(get-value (x)); returns 1 ?!
+(get-value ((f x))); assert-fails in EqualityEngine
+(get-value ((f x)))