X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=6175148f461c4c0db1ff690997928e56f560544f;hp=1780bafa8ad900781c4af6e7f6b77868710a5119;hb=e763da864f7330c2b53029782c6b0d85543eb4d2;hpb=ea5cf056abf2bf42e9f328b9c1f2d94ee96bcc4c

diff --git a/test.c b/test.c
index 1780baf..6175148 100644
--- 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."
 ;