From 47521ad6d85f9bd6caee39696ce40dff82cfa50d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 2 Sep 2026 13:31:04 +0200
Subject: Implement program entry point

---
 testsuite/runnable/case_record.elna | 1 +
 1 file changed, 1 insertion(+)

(limited to 'testsuite/runnable/case_record.elna')

diff --git a/testsuite/runnable/case_record.elna b/testsuite/runnable/case_record.elna
index 4f65a5b..26436ea 100644
--- a/testsuite/runnable/case_record.elna
+++ b/testsuite/runnable/case_record.elna
@@ -7,6 +7,7 @@ type
 var
   r: R := R{a: 1, b: 2}
 
+program()
 begin
   case r of
     R{a: 0, b: 0}: assert(false)
-- 
cgit v1.2.3