JVM: Реализованы локальные процедуры (без доступа к локальным переменным уровнем...

[dsw-obn.git] / src / test.c

diff --git a/src/test.c b/src/test.c
index cd28a2109e803224afb6a10ca56baaf18184be64..595df77a7af072cf374214cd89c64b44c853fcaf 100644 (file)
--- a/src/test.c
+++ b/src/test.c
@@ -18,7 +18,12 @@ static char source_test[] =
        "  r : R;"
        ""
        "PROCEDURE X(VAR x : INTEGER);"
+       "  PROCEDURE Y;"
+       "  BEGIN"
+       "    Out.String('YYYyYYYyYY'); Out.Ln;"
+       "  END Y;"
        "BEGIN"
+       "  Y;"
        "  x := x * 666;"
        "END X;"
        ""