tests/Test17Common.obn

   1 MODULE Test17Common;
   2
   3 TYPE
   4   PRec = POINTER TO RecDesc;
   5   RecDesc = RECORD fld, fldRO-, fldRW* : INTEGER END;
   6   PArr = POINTER TO Arr;
   7   Arr = ARRAY 3 OF INTEGER;
   8
   9 VAR
  10   rec, recRO-, recRW* : RecDesc;
  11   p, pRO-, pRW* : PRec;
  12   arr, arrRO-, arrRW* : Arr;
  13   pa, paRO-, paRW* : PArr;
  14
  15 END Test17Common.