From b7a19dd8470222feb9fb54b6fd0d100293afb442 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 27 Dec 2003 22:27:05 +0000
Subject: [PATCH]   * new bug

---
 tests/tbs/tb0466.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 tests/tbs/tb0466.pp

diff --git a/tests/tbs/tb0466.pp b/tests/tbs/tb0466.pp
new file mode 100644
index 0000000000..54ce119108
--- /dev/null
+++ b/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.
+