From e56fafb7d76d06948fe55caddcf3fd2e237aa2bb Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 31 Jan 2002 14:36:35 +0000
Subject: [PATCH]   + added after comment on fpc-devel by
 <pavel@insect.mail.iephb.ru>

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

diff --git a/tests/tbs/tb0392.pp b/tests/tbs/tb0392.pp
new file mode 100644
index 0000000000..9778563d17
--- /dev/null
+++ b/tests/tbs/tb0392.pp
@@ -0,0 +1,13 @@
+var
+  l: longint;
+  a: array[0..1] of char; 
+
+begin
+  l := 50;
+  str(l,a);     
+  if a <> '50' then
+    begin
+      writeln('error');
+      halt(1);
+    end;
+end.