+ added after comment on fpc-devel by <[email protected]>

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.