17 lines
205 B
Plaintext
17 lines
205 B
Plaintext
-- From cgtest00.
|
|
|
|
PROC S19 ()
|
|
INT X:
|
|
SEQ
|
|
X := 42
|
|
[4]INT V:
|
|
[3]CHAN OF INT c:
|
|
PAR
|
|
PAR i = 0 FOR 3
|
|
c[i] ! (i + 5)
|
|
X := X
|
|
PAR i = 0 FOR 3
|
|
c[i] ? V[i]
|
|
:
|
|
|