tock-mirror/testcases/val-retypes.occ

13 lines
217 B
Plaintext

PROC P ()
VAL INT x IS 42:
INT y:
SEQ
VAL INT32 r RETYPES x + 19:
y := INT r
VAL [2]INT16 r RETYPES 45 * x:
SEQ
y := INT r[0]
VAL [4]BYTE rr RETYPES [r FOR 2]:
y := INT rr[3]
: