tests/Test17A.obn

   1 MODULE Test17A;
   2
   3 IMPORT C := Test17Common;
   4
   5 BEGIN
   6   C.rec.fldRW := 666;
   7   С.p.fldRW := 666;
   8   С.arr[0] := 666;
   9   С.pa[0] := 666;
  10 END Test17A.
  11
  12 Тест экспорта. Копиляция должна проваливаться. Переменные не экспортированы.