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