Исправлено чтение и запсь в Files, Texts портирован из voc, добавлены типы SYSTEM...

[dsw-obn.git] / tests / Test26.obn

MODULE Test26;

VAR
  x : SHORTINT;
  y : LONGINT;

BEGIN
  y := x + SHORT(y);
END Test26.

Тест приведения типа.