compiler/testcases/test14.tig

   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