aboutsummaryrefslogtreecommitdiff
path: root/tests/i/while-do/program.cps
blob: 58d6319a3afe25b515a90e2875171fabbc9e6d2c (plain)
1
2
3
4
5
6

DECLARE X : INTEGER
X <- 0
WHILE X < 2 DO
    X <- X + 1
ENDWHILE
OUTPUT X