X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=6fae5299c4ceb508ddf3708622d39e419e562a12;hb=293e2f9bd316311579a6b324d8b3d7676623ee33;hp=e4eeec3fd93e1dc48ac82f3e67accc672fd2131c;hpb=6a3dfd4bef9a28863a7645070f0067f4a09d143a;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index e4eeec3..6fae529 100644 --- a/Test.obn +++ b/Test.obn @@ -1,15 +1,3 @@ MODULE Test; -TYPE - Rider = RECORD i : INTEGER END; - -PROCEDURE X; - VAR - r : Rider; -BEGIN - r.i := 666; -END X; - -BEGIN - X; END Test.