compiler/testcases/test03.tig

   1 /* a record type and a record variable */
   2 let
   3         type  rectype = {name:string, age:int}
   4         var rec1:rectype := rectype {name="Nobody", age=1000}
   5 in
   6         rec1.name := "Somebody";
   7         rec1
   8 end