DEADSOFTWARE

JVM: наличие VAR-парамеров отражается в имени класса процедур
[dsw-obn.git] / tests / Test22.obn
1 MODULE Test22;
3 TYPE
4 Rider = RECORD i : INTEGER END;
5 Array = ARRAY 10 OF Rider;
7 VAR
8 Ride : Rider;
9 Arr : Array;
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;
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.
30 Проверка аллокации локальных статических структур и копирования параметров.