Добавлено вычисление размеров типа для аллокации

[dsw-obn.git] / test.c

diff --git a/test.c b/test.c
index fc0033339d03fff36dbd6f52ba6989c3df777c0c..1f440779e411b51f514c9409fddf97b033019685 100644 (file)
--- a/test.c
+++ b/test.c
@@ -11,7 +11,8 @@ static char source_test[] =
        ""
        "VAR"
        "  nx- : INTEGER;"
-       "  p : POINTER TO ARRAY 3 OF INTEGER;"
+       "  p : POINTER TO ARRAY 3 OF RECORD i, j, k : INTEGER END;"
+       "  q : POINTER TO RECORD x, y, z : INTEGER END;"
        ""
        "PROCEDURE ChParam(VAR i : INTEGER);"
        "BEGIN"
@@ -20,7 +21,8 @@ static char source_test[] =
        ""
        "BEGIN;"
        "  NEW(p);"
-       "  p[0] := 1;"
+       "  p[2].k := 1;"
+       "  NEW(q);"
        "  "
        "  Out.Open;"
        "  ChParam(nx);"