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

[dsw-obn.git] / test.c

diff --git a/test.c b/test.c
index 2bea391195d42f982cbaf1688e999242ee771586..da6a8041e833c307ff423b8411513067390e8c53 100644 (file)
--- a/test.c
+++ b/test.c
@@ -10,13 +10,14 @@ static const char source[] =
        ""
        "PROCEDURE Tier;"
        "BEGIN"
-       "       "
+       "       k := 314;"
        "END Tier;"
        ""
        "BEGIN"
        "       k := 1;"
        "       i := k;"
        "       b := TRUE;"
+       "       Tier;"
        "END Test."
 ;