Test17C.obn

   1 MODULE Test17C;
   2
   3 IMPORT C := Test17Common;
   4
   5 BEGIN
   6   C.pRO.fldRW := 666;
   7 END Test17C.
   8
   9 Тест экспорта на чтение. Компиляция должна быть успешна.
  10 Переменные-указатели экспортированные только для чтения должны допускать
  11 запись в структуру по указателю, но запрещать изменение самого указателя.