r_bad_field.mod 94 B

123456
  1. MODULE RBadField;
  2. TYPE R = RECORD x : INTEGER END;
  3. VAR r : R;
  4. BEGIN
  5. r.z := 1
  6. END RBadField.