tests/Test17D.obn

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