Преглед на файлове

* test only with longint to byte typecast

pierre преди 23 години
родител
ревизия
dbb291bc0b
променени са 1 файла, в които са добавени 10 реда и са изтрити 0 реда
  1. 10 0
      tests/tbf/tb0107a.pp

+ 10 - 0
tests/tbf/tb0107a.pp

@@ -0,0 +1,10 @@
+{ %FAIL }
+
+var
+  i : longint;
+  j : word;
+
+begin
+  j:=5;
+  byte(i):=j;
+end.