From 768537d6e4b82a19e77b7e44234309ecaf4d65d2 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 12 Jul 2026 13:23:54 +0200
Subject: Remove unions

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

(limited to 'testsuite')

diff --git a/testsuite/runnable/record_extension.elna b/testsuite/runnable/record_extension.elna
new file mode 100644
index 0000000..161361b
--- /dev/null
+++ b/testsuite/runnable/record_extension.elna
@@ -0,0 +1,19 @@
+type
+  ElnaLexerToken = record
+    kind: Word
+  end
+  ElnaLexerStringToken = record(ElnaLexerToken)
+    value: String
+  end
+
+var
+  token_memory: ElnaLexerStringToken
+  current_token: ^ElnaLexerToken
+
+begin
+  current_token := @token_memory;
+  cast(current_token: ^ElnaLexerStringToken)^.value := "Some string";
+
+  assert(token_memory.value = "Some string");
+  return 0
+end.
-- 
cgit v1.2.3