MODULE Test17Common;

TYPE
  PRec = POINTER TO RecDesc;
  RecDesc = RECORD fld, fldRO-, fldRW* : INTEGER END;
  PArr = POINTER TO Arr;
  Arr = ARRAY 3 OF INTEGER;

VAR
  rec, recRO-, recRW* : RecDesc;
  p, pRO-, pRW* : PRec;
  arr, arrRO-, arrRW* : Arr;
  pa, paRO-, paRW* : PArr;

END Test17Common.