Implement record extensions

1 files changed, 22 insertions, 0 deletions

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.