From 65e2594da4f29f2dd0913b34f626622930ee3caa Mon Sep 17 00:00:00 2001
From: fpc <fpc@idefix.freepascal.org>
Date: Thu, 19 May 2005 21:12:11 +0000
Subject: [PATCH] Merged revisions 30 via svnmerge from /trunk

git-svn-id: branches/fixes_2_0@32 -
---
 .gitattributes          |  2 ++
 tests/webtbs/tw3977.pp  | 11 +++++++++++
 tests/webtbs/tw3977.txt |  1 +
 3 files changed, 14 insertions(+)
 create mode 100644 tests/webtbs/tw3977.pp
 create mode 100644 tests/webtbs/tw3977.txt

diff --git a/.gitattributes b/.gitattributes
index 406f5ef0c7..b8afdad248 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6129,6 +6129,8 @@ tests/webtbs/tw3898.pp svneol=native#text/plain
 tests/webtbs/tw3899.pp svneol=native#text/plain
 tests/webtbs/tw3900.pp svneol=native#text/plain
 tests/webtbs/tw3973.pp svneol=native#text/plain
+tests/webtbs/tw3977.pp svneol=native#text/plain
+tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw3977.pp b/tests/webtbs/tw3977.pp
new file mode 100644
index 0000000000..4ffe1272da
--- /dev/null
+++ b/tests/webtbs/tw3977.pp
@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 3977 }
+{ Submitted by "lqs" on  2005-05-17 }
+{ e-mail: lqs@users.sf.net }
+var
+  n:integer;
+begin
+  assign(input,'tw3977.txt');
+  reset(input);
+  readln(n);
+  close(output);
+end.
diff --git a/tests/webtbs/tw3977.txt b/tests/webtbs/tw3977.txt
new file mode 100644
index 0000000000..274c0052dd
--- /dev/null
+++ b/tests/webtbs/tw3977.txt
@@ -0,0 +1 @@
+1234
\ No newline at end of file