diff options
| author | Martial Simon <msimon_fr@hotmail.com> | 2025-09-15 01:07:58 +0200 |
|---|---|---|
| committer | Martial Simon <msimon_fr@hotmail.com> | 2025-09-15 01:07:58 +0200 |
| commit | 967be9e750221ab2ab783f95df79bb26d290a45e (patch) | |
| tree | 6802900a5e975f9f68b169f0f503f040056d6952 /tiger-compiler/tests/good/mutually-recursive-procedures.tig | |
Diffstat (limited to 'tiger-compiler/tests/good/mutually-recursive-procedures.tig')
| -rw-r--r-- | tiger-compiler/tests/good/mutually-recursive-procedures.tig | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tiger-compiler/tests/good/mutually-recursive-procedures.tig b/tiger-compiler/tests/good/mutually-recursive-procedures.tig new file mode 100644 index 0000000..d1980fd --- /dev/null +++ b/tiger-compiler/tests/good/mutually-recursive-procedures.tig @@ -0,0 +1,12 @@ +/* define valid mutually recursive procedures */ +let + +function do_nothing1(a : int, b : string)= + do_nothing2(a+1) + +function do_nothing2(d : int) = + if d < 10 then do_nothing1(d, "str") + +in + do_nothing1(0, "str2") +end |