summaryrefslogtreecommitdiff
path: root/tiger-compiler/tests/bind/invalid-function-redefinition-1.tig
diff options
context:
space:
mode:
Diffstat (limited to 'tiger-compiler/tests/bind/invalid-function-redefinition-1.tig')
-rw-r--r--tiger-compiler/tests/bind/invalid-function-redefinition-1.tig11
1 files changed, 11 insertions, 0 deletions
diff --git a/tiger-compiler/tests/bind/invalid-function-redefinition-1.tig b/tiger-compiler/tests/bind/invalid-function-redefinition-1.tig
new file mode 100644
index 0000000..aa50eaf
--- /dev/null
+++ b/tiger-compiler/tests/bind/invalid-function-redefinition-1.tig
@@ -0,0 +1,11 @@
+/* public. */
+
+/* This is invalid, since there are two functions with the same name
+ in the same (consecutive) batch of mutually recursive functions.
+ See also test48 */
+let
+ function g(a : int) : int = a
+ function g(a : int) : int = a
+in
+ 0
+end