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

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

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

diff --git a/tools/tree-sitter/test/corpus/double_literals.txt b/tools/tree-sitter/test/corpus/double_literals.txt
new file mode 100644
index 0000000..9dc7cc1
--- /dev/null
+++ b/tools/tree-sitter/test/corpus/double_literals.txt
@@ -0,0 +1,56 @@
+==================
+double_literals
+==================
+
+module
+
+proc f()
+var
+  x: const Double := 3.14
+  y: const Double := 1e10
+  z: const Double := 4.567e8
+  t: const Double := 2.5E-3
+return
+
+end.
+
+---
+
+(source_file
+  (module_declaration
+    (procedure_declaration
+      (identifier_definition
+        (identifier))
+      (parameter_list)
+      (procedure_body
+        (block
+          (var_section
+            (variable_declaration
+              (identifier_definition
+                (identifier))
+              (const_type
+                (identifier))
+              (literal
+                (float)))
+            (variable_declaration
+              (identifier_definition
+                (identifier))
+              (const_type
+                (identifier))
+              (literal
+                (float)))
+            (variable_declaration
+              (identifier_definition
+                (identifier))
+              (const_type
+                (identifier))
+              (literal
+                (float)))
+            (variable_declaration
+              (identifier_definition
+                (identifier))
+              (const_type
+                (identifier))
+              (literal
+                (float)))))
+        (return_clause)))))
-- 
cgit v1.2.3