tock-mirror/testcases/initial.occ
Adam Sampson 17a1c0eef6 Clean up INITIAL a bit and add a test case.
There's no need for INITIALs to be early-constant-folded, since -- unlike VALs
-- they can't be used in later constant folding.
2008-03-17 18:43:07 +00:00

9 lines
142 B
Plaintext

PROC P ()
INITIAL INT x IS 1234:
INITIAL []BYTE cs IS "hello, world":
SEQ
SEQ i = 0 FOR SIZE cs
cs[i] := 'A'
x := x + 1
: