* new bug

tests/tbs/tb0466.pp

@@ -0,0 +1,13 @@
+var
+  outf : file of byte;
+  w : word;
+begin
+   assign(outf, 'tb0466.tmp');
+   rewrite(outf);
+   {only explicit typecasting helps: byte(10)}
+   write(outf, 10);
+   w:=20;
+   write(outf, w);
+   close(outf);
+end.
+