17 lines
296 B
Plaintext
17 lines
296 B
Plaintext
-- Check that the type context is manipulated correctly when dealing with a
|
|
-- subscript of an array literal.
|
|
|
|
PROC Q ()
|
|
SEQ
|
|
PROC P (VAL INT v)
|
|
ASSERT (v = 3)
|
|
:
|
|
P ([1, 2, 3, 4][2])
|
|
|
|
DATA TYPE FOO IS INT:
|
|
PROC P (VAL []FOO foos)
|
|
SKIP
|
|
:
|
|
P ([1, 2, 3, 4])
|
|
:
|