Добавлены открытые массивы

[dsw-obn.git] / test.c

diff --git a/test.c b/test.c
index 1780bafa8ad900781c4af6e7f6b77868710a5119..6175148f461c4c0db1ff690997928e56f560544f 100644 (file)
--- a/test.c
+++ b/test.c
@@ -8,30 +8,24 @@ static char source_test[] =
        "(* Main module *)"
        "MODULE Test;"
        "IMPORT Out;"
-       "CONST"
-       "  real = 0.1E3;"
+       "TYPE Ar = ARRAY OF ARRAY OF INTEGER;"
+       "VAR a : POINTER TO Ar;"
        ""
-       "VAR"
-       "  nx- : 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);"
+       "PROCEDURE Ax(VAR x : POINTER TO Ar);"
        "BEGIN"
-       "  i := 1234;"
-       "END ChParam;"
+       "  x[0, 0] := 777;"
+       "END Ax;"
        ""
        "BEGIN;"
-       "  NEW(p);"
-       "  p[2].k := 1;"
-       "  NEW(q);"
-       "  "
+       "  NEW(a, 2, 2);"
+       "  a[0, 0] := 666;"
        "  Out.Open;"
-       "  ChParam(nx);"
-       "  Out.Int(nx, 0);"
-       "  Out.Ln;"
-       "  Out.Real(real / 3.0, 0);"
+       "  Out.Int(a[0, 0], 0);"
        "  Out.Ln;"
+       ""
+       "  Ax(a);"
+//     "  Out.Int(a[0, 0], 0);"
+//     "  Out.Ln;"
        "END Test."
 ;