paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2003-12-27 22:27:05 +00:00
parent ac8870b489
commit b7a19dd847
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbs/tb0466.pp Normal file
View File

@ -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.