62 lines
1.2 KiB
Plaintext
62 lines
1.2 KiB
Plaintext
--** Test array abbreviations and parameters.
|
|
|
|
PROC P ()
|
|
SEQ
|
|
PROC Q1 ([]INT arg.arg)
|
|
SKIP
|
|
:
|
|
PROC Q ([]INT arg)
|
|
Q1 (arg)
|
|
:
|
|
PROC R1 (VAL []INT val.arg.arg)
|
|
SKIP
|
|
:
|
|
PROC R (VAL []INT val.arg)
|
|
R1 (val.arg)
|
|
:
|
|
[10]INT array:
|
|
SEQ
|
|
Q (array)
|
|
R (array)
|
|
[]INT abbrev IS array:
|
|
SEQ
|
|
Q (abbrev)
|
|
R (abbrev)
|
|
[]INT abbrev.abbrev IS abbrev:
|
|
SKIP
|
|
VAL []INT val.abbrev IS array:
|
|
SEQ
|
|
R (val.abbrev)
|
|
VAL []INT val.abbrev.abbrev IS val.abbrev:
|
|
SKIP
|
|
abbrev2 IS array:
|
|
SEQ
|
|
Q (abbrev2)
|
|
R (abbrev2)
|
|
VAL val.abbrev2 IS array:
|
|
R (val.abbrev2)
|
|
|
|
PROC S1 ([]CHAN OF INT chan.arg.arg)
|
|
chan.arg.arg[0] ! 42
|
|
:
|
|
PROC S ([]CHAN OF INT chan.arg)
|
|
SEQ
|
|
chan.arg[0] ! 42
|
|
S1 (chan.arg)
|
|
:
|
|
[10]CHAN OF INT chan.array:
|
|
SEQ
|
|
chan.array[0] ! 42
|
|
S (chan.array)
|
|
[]CHAN OF INT chan.abbrev IS chan.array:
|
|
SEQ
|
|
chan.abbrev[0] ! 42
|
|
S (chan.abbrev)
|
|
[]CHAN OF INT chan.abbrev.abbrev IS chan.abbrev:
|
|
chan.abbrev.abbrev[0] ! 42
|
|
chan.abbrev2 IS chan.array:
|
|
S (chan.abbrev2)
|
|
[4][2]CHAN OF INT chan.array.2d:
|
|
SKIP
|
|
:
|