Добавлен автокаст типов-записей

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

diff --git a/src/test.c b/src/test.c
index 7a449d63c16f129c4fd450d3b537d2d5240bd7fc..c6d49e48cb3b54951d1ce87cb7ce6f3b255f7789 100644 (file)
--- a/src/test.c
+++ b/src/test.c
@@ -20,12 +20,13 @@ static char source_test[] =
        ""
        "VAR"
        "  baser : Baser;"
-       "  r : R1;"
-       "  inv : R2;"
+       "  r     : R1;"
+       "  inv   : R2;"
        ""
        "BEGIN"
        "  r.a := 1;"
-       "  baser := r(Baser);"
+       "  baser := baser;"
+       "  baser := r;"
        "END Test."
 ;