tock-mirror/testcases/record-literals2.occ
Adam Sampson 82df59dcfb Fix makeLiteral for arrays inside records.
This was an "obvious" bug (a missing pattern) being masked by me doing a
pattern match inside an array constructor -- if the pattern doesn't match then
it'll skip that value, rather than causing an error like it does in a case.
2007-08-23 22:07:01 +00:00

14 lines
205 B
Plaintext

-- From cgtest56
PROC record.literals()
DATA TYPE contains.array
RECORD
BYTE b :
[3]INT a :
INT i :
:
[2]contains.array aca :
aca := [['a', [2,3,4], 6],['b', [3,4,5], 7]]
: