aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/case-order/program.cps
blob: dedf5cd2c3667e465f9406212be7a60ef60ec010 (plain)
1
2
3
4
5
6

DECLARE X : INTEGER
X <- 1
CASE OF X
    OTHERWISE : OUTPUT 0
    1 : OUTPUT 1
ENDCASE