t_bad_field.mod 55 B

1234
  1. MODULE TFld;
  2. VAR x : INTEGER;
  3. BEGIN x.y := 1
  4. END TFld.