tock-mirror/testcases/shifts.occ

9 lines
94 B
Plaintext

PROC P ()
INT a:
SEQ
a := 42
a := a << 4
a := a >> 4
a := a >> (a - 40)
: