Listing: 1 MODULE TNoFld; 2 TYPE R = RECORD a : INTEGER END; 3 VAR p : R; 4 BEGIN p.b := 1 ***** ^ unknown field 5 END TNoFld. 1 error
