t_bad_nofield.mod 86 B

12345
  1. MODULE TNoFld;
  2. TYPE R = RECORD a : INTEGER END;
  3. VAR p : R;
  4. BEGIN p.b := 1
  5. END TNoFld.