Commit | Line | Data |
---|---|---|
1 | /* error : compare rec with array */ | |
2 | ||
3 | let | |
4 | ||
5 | type arrtype = array of int | |
6 | type rectype = {name:string, id: int} | |
7 | ||
8 | var rec := rectype {name="aname", id=0} | |
9 | var arr := arrtype [3] of 0 | |
10 | ||
11 | in | |
12 | if rec <> arr then 3 else 4 | |
13 | end |