X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Ftest.c;h=02912bbe97ae1e523f23c91eb2027900a8c15dee;hp=51a1250523aebc88646d6add7368a3c5fe5f8f48;hb=bd4b622f2ffd3fceefd9caeaff35662a13af201c;hpb=fef434efd26d259ed8a857e28af092df93282880 diff --git a/src/test.c b/src/test.c index 51a1250..02912bb 100644 --- a/src/test.c +++ b/src/test.c @@ -13,9 +13,10 @@ static char source_test[] = "VAR" " g : ARRAY 4 OF INTEGER;" " r : RECORD x : INTEGER; END;" - " a : POINTER TO ARRAY OF ARRAY OF RecDesc;" + " a : POINTER TO ARRAY OF ARRAY OF Rec;" "BEGIN" " NEW(a, 10, 10);" + " NEW(a[9, 9]);" " a[9, 9].x := 666;" " g[3] := 4;" " r.x := 4546;"