From 8e10c8aac09de9165deb1c04cd908c8057c7f173 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Wed, 14 Aug 2013 13:16:00 +0200
Subject: Fix compiler crash for 'B and B' guard

---
 lib/compiler/test/guard_SUITE.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/compiler/test/guard_SUITE.erl')

diff --git a/lib/compiler/test/guard_SUITE.erl b/lib/compiler/test/guard_SUITE.erl
index 5656d23090..a0a9bb7ddd 100644
--- a/lib/compiler/test/guard_SUITE.erl
+++ b/lib/compiler/test/guard_SUITE.erl
@@ -813,8 +813,16 @@ and_guard(Config) when is_list(Config) ->
 
     ?line ok = relprod({'Set',a,b}, {'Set',a,b}),
     
+    ok = and_same_var(42),
+    {'EXIT',{if_clause,_}} = (catch and_same_var(x)),
     ok.
 
+and_same_var(V) ->
+    B = is_integer(V),
+    if
+	B or B -> ok
+    end.
+
 relprod(R1, R2) when (erlang:size(R1) =:= 3) and (erlang:element(1,R1) =:= 'Set'), (erlang:size(R2) =:= 3) and (erlang:element(1,R2) =:= 'Set') ->
     ok.
 
-- 
cgit v1.2.3