tock-mirror/testcases/case.occ

21 lines
254 B
Plaintext

PROC P ()
INT n:
SEQ
n := 2
CASE n -- with ELSE
INT x:
1, 2
x := n
3
SKIP
4, 5, 6, 7, 8
SKIP
ELSE
SKIP
CASE n -- without ELSE
1
SKIP
2
SKIP
: