[c6a232]: / test / stmt-case.test.log  Maximize  Restore  History

Download this file

16 lines (13 with data), 159 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
FUNCTION func:BOOL;
(*switch*)WHILE TRUE DO
CASE value OF
 'h':
 c:=c+1;
 c:=c-1;
 EXIT;
 
ELSE:
 c:=c-1;
 EXIT;

END_CASE

(*switch*)EXIT;
(*switch*)END_WHILE