From 592ef8f7831584884fc7891a7bc410e0a481354e Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 9 Apr 2023 12:50:19 +0200
Subject: [PATCH] #2836

---
 TestSuite/case7.pas                                 | 13 +++++++++++++
 TreeConverter/TreeConversion/syntax_tree_visitor.cs |  2 +-
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 TestSuite/case7.pas

diff --git a/TestSuite/case7.pas b/TestSuite/case7.pas
new file mode 100644
index 000000000..e035cb270
--- /dev/null
+++ b/TestSuite/case7.pas
@@ -0,0 +1,13 @@
+var i: integer;
+
+procedure p1(s: string) :=
+case s of
+  else Inc(i);
+end;
+
+begin
+  p1('abc');
+  p1('');
+  p1(nil);
+  assert(i = 3);
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index 1de65161c..763ece523 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -10928,7 +10928,7 @@ namespace PascalABCCompiler.TreeConverter
                 context.leave_code_block();
                 if (ifn == null)
                 {
-                    ifn = new if_node(en, new statements_list(null), null, get_location(_case_node));
+                    ifn = new if_node(new bool_const_node(false, null), new statements_list(null), null, get_location(_case_node));
                     main_ifn = ifn;
                 }
                 ifn.else_body = else_statement;