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

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

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