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

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

diff --git a/src/test.c b/src/test.c
index 6a08bce11b82d1454ec2538a53e6e63d426debfa..c6d49e48cb3b54951d1ce87cb7ce6f3b255f7789 100644 (file)
--- a/src/test.c
+++ b/src/test.c
@@ -19,10 +19,14 @@ static char source_test[] =
        "  END;"
        ""
        "VAR"
-       "  r : R1;"
+       "  baser : Baser;"
+       "  r     : R1;"
+       "  inv   : R2;"
        ""
        "BEGIN"
        "  r.a := 1;"
+       "  baser := baser;"
+       "  baser := r;"
        "END Test."
 ;