tests/Test17E.obn

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