aboutsummaryrefslogtreecommitdiff
path: root/src/testsuite/compiler
diff options
context:
space:
mode:
Diffstat (limited to 'src/testsuite/compiler')
-rw-r--r--src/testsuite/compiler/aw-420.spad8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/testsuite/compiler/aw-420.spad b/src/testsuite/compiler/aw-420.spad
new file mode 100644
index 00000000..847416ea
--- /dev/null
+++ b/src/testsuite/compiler/aw-420.spad
@@ -0,0 +1,8 @@
+)abbrev domain MOO Moo
+Moo(): Public == Private where
+ Public ==> with
+ coerce: Tuple Type -> %
+ Private ==> add
+ Rep == Tuple Type
+ coerce(x: Tuple Type) == per x
+