From 8d8e771af944796eba10cfa9568d284daaab93a1 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Thu, 9 Jul 2026 09:21:57 +0200
Subject: Implement record extensions

---
 testsuite/runnable/record_base_assignment.elna | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 testsuite/runnable/record_base_assignment.elna

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

diff --git a/testsuite/runnable/record_base_assignment.elna b/testsuite/runnable/record_base_assignment.elna
new file mode 100644
index 0000000..c91383d
--- /dev/null
+++ b/testsuite/runnable/record_base_assignment.elna
@@ -0,0 +1,22 @@
+type
+  B = record
+    x: Word
+  end
+  R = record(B)
+    y: Word
+  end
+
+proc f(): Int
+var
+  r: R
+begin
+  r.x := 3u;
+  r.y := 2u;
+
+  assert(r.x = 3u & r.y = 2u);
+
+  return 0
+end
+
+  return f()
+end.
-- 
cgit v1.2.3