tests/Test17B.obn

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