Добавлены указатели

[dsw-obn.git] / test.c

diff --git a/test.c b/test.c
index 178327ecf317a2ad3298036bf70b59a620c1af39..8f3edc4aec855db2d7e30c6f1b24d0f45ece44c3 100644 (file)
--- a/test.c
+++ b/test.c
@@ -7,10 +7,13 @@ static const char source[] =
        ""
        "TYPE"
        "       MyInt = INTEGER;"
-       "       MyRec = RECORD"
+       "       MyRec = POINTER TO RECORD"
        "               a : MyInt;"
+       "               next : MyRec;"
        "       END;"
-       "       MyRecPtr = POINTER TO MyRec;"
+       ""
+       "VAR"
+       "       r : MyRec;"
        ""
        "BEGIN"
        "       "