tests/Test22.obn

   1 MODULE Test22;
   2
   3 TYPE
   4   Rider = RECORD i : INTEGER END;
   5   Array = ARRAY 10 OF Rider;
   6
   7 VAR
   8   Ride : Rider;
   9   Arr  : Array;
  10
  11 PROCEDURE X(R : Rider; A : Array);
  12   VAR
  13     r : Rider;
  14     a : Array;
  15 BEGIN
  16   r.i := 666;
  17   a[2].i := 666;
  18   R.i := 789;
  19   A[7].i := 987;
  20 END X;
  21
  22 BEGIN
  23   Ride.i := 123;
  24   Arr[7].i := 321;
  25   X(Ride, Arr);
  26   ASSERT(Ride.i = 123);
  27   ASSERT(Arr[7].i = 321);
  28 END Test22.
  29
  30 Проверка аллокации локальных статических структур и копирования параметров.