1 files changed, 35 insertions, 0 deletions
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)))))