From a9f6cfb6a8b6d38057faca067c015da1f72cf62d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 5 Oct 2026 00:26:05 +0200
Subject: Add a treesitter grammar

---
 .../tree-sitter/test/corpus/take_const_address.txt | 35 ++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 tools/tree-sitter/test/corpus/take_const_address.txt

(limited to 'tools/tree-sitter/test/corpus/take_const_address.txt')

diff --git a/tools/tree-sitter/test/corpus/take_const_address.txt b/tools/tree-sitter/test/corpus/take_const_address.txt
new file mode 100644
index 0000000..d84e20f
--- /dev/null
+++ b/tools/tree-sitter/test/corpus/take_const_address.txt
@@ -0,0 +1,35 @@
+==================
+take_const_address
+==================
+
+program()
+var
+  x: ^const Int
+  y: const Int := 1
+
+begin
+  x := @y
+end.
+
+---
+
+(source_file
+  (program_declaration
+    (var_section
+      (variable_declaration
+        (identifier_definition
+          (identifier))
+        (pointer_type
+          (const_type
+            (identifier))))
+      (variable_declaration
+        (identifier_definition
+          (identifier))
+        (const_type
+          (identifier))
+        (literal
+          (integer))))
+    (assignment_statement
+      (identifier)
+      (unary_expression
+        (identifier)))))
-- 
cgit v1.2.3