From ce76f8f658abaa1467044060548bb908ba82f552 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 14 Nov 2000 23:41:34 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbf/tbug1238.pp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/webtbf/tbug1238.pp

diff --git a/tests/webtbf/tbug1238.pp b/tests/webtbf/tbug1238.pp
new file mode 100644
index 0000000000..7e948d32a6
--- /dev/null
+++ b/tests/webtbf/tbug1238.pp
@@ -0,0 +1,23 @@
+{ Source provided for Free Pascal Bug Report 1238 }
+{ Submitted by "Mazen NEIFER" on  2000-11-14 }
+{ e-mail: mazen_neifer@ayna.com }
+PROGRAM Concat;
+VAR
+  InputFile,OutputFile:File;
+  c:Char;
+  Buffer:Array[DWord]OF Byte;
+  ReadCount,WriteCount:DWord;
+BEGIN
+  Assign(OutputFile,'Maple.tar.gz');
+  ReWrite(OutputFile,1);
+  FOR c:='a' TO 'n' DO
+    BEGIN
+      Assign(InputFile,'xa'+c);
+      Reset(InputFile,1);
+      BlockRead(InputFile,Buffer,SizeOf(Buffer),ReadCount);
+      BlockWrite(OutputFile,Buffer,SizeOf(Buffer),WriteCount);
+      Close(InputFile);
+    END;
+  Close(OutputFile);
+END.
+