summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGabriel Kerneis2014-01-15 12:33:25 +0100
committerGabriel Kerneis2014-01-15 12:33:25 +0100
commitb4fc4e45891833dff8896b5a9009c197046b8d93 (patch)
tree97c13f1f9ccecca06216892a362906bd9b1c59b7 /src
parent048256944331ed646225e856fca56728a074f3a6 (diff)
Test indexed match
Diffstat (limited to 'src')
-rw-r--r--src/test/vectors.sail6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/test/vectors.sail b/src/test/vectors.sail
index f6e0c532..515b2be4 100644
--- a/src/test/vectors.sail
+++ b/src/test/vectors.sail
@@ -35,6 +35,12 @@ function unit main _ = {
case _ -> match_success := i
};
+ (* indexed match *)
+ switch i {
+ case [0=bitzero, 1=bitzero, 2=bitone, 3=bitzero] -> match_success := 1
+ case _ -> match_success := i
+ };
+
(* XXX slice access not implemented *)
i[0] := bitzero;
(* XXX Vector access of non-vector *)