MODULE Test17E;

IMPORT C := Test17Common;

BEGIN
  C.recRW.fld := 666;
  C.pRW.fld := 666;
END Test17E.

Тест экспорта. Копиляция должна проваливаться т.к. поля не экспортированы.