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

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

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

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