Test17F.obn

   1 MODULE Test17F;
   2
   3 IMPORT C := Test17Common;
   4
   5 BEGIN
   6   C.recRW.fldRO := 666;
   7   C.pRW.fldRO := 666;
   8 END Test17F.
   9
  10 Тест экспорта. Копиляция должна проваливаться т.к. поля только для чтения.