From 967be9e750221ab2ab783f95df79bb26d290a45e Mon Sep 17 00:00:00 2001
From: Martial Simon <msimon_fr@hotmail.com>
Date: Mon, 15 Sep 2025 01:07:58 +0200
Subject: add: added projects

---
 tiger-compiler/tests/good/recursive-types.tig | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tiger-compiler/tests/good/recursive-types.tig

(limited to 'tiger-compiler/tests/good/recursive-types.tig')

diff --git a/tiger-compiler/tests/good/recursive-types.tig b/tiger-compiler/tests/good/recursive-types.tig
new file mode 100644
index 0000000..60cc378
--- /dev/null
+++ b/tiger-compiler/tests/good/recursive-types.tig
@@ -0,0 +1,15 @@
+/* define valid recursive types */
+
+let
+  /* define a list */
+  type intlist = {hd : int, tl : intlist}
+
+  /* define a tree */
+  type tree = {key : int, children : treelist}
+  type treelist = {hd : tree, tl : treelist}
+
+  var lis : intlist := intlist { hd = 0, tl = nil }
+
+in
+  lis
+end
-- 
cgit v1.2.3