* new test

git-svn-id: trunk@2494 -

.gitattributes

@@ -5988,6 +5988,7 @@ tests/webtbf/tw4651.pp svneol=native#text/plain
 tests/webtbf/tw4695.pp svneol=native#text/plain
 tests/webtbf/tw4757.pp svneol=native#text/plain
 tests/webtbf/tw4764.pp svneol=native#text/plain
+tests/webtbf/tw4777.pp svneol=native#text/plain
 tests/webtbf/tw4781a.pp svneol=native#text/plain
 tests/webtbf/tw4781b.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain

tests/webtbf/tw4777.pp

@@ -0,0 +1,27 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 4777 }
+{ Submitted by "Phil H." on  2006-02-06 }
+{ e-mail: [email protected] }
+unit tw4777;
+
+{$mode objfpc}
+
+interface
+
+uses
+  SysUtils;
+
+function GetVal(astr : string) : Integer;
+
+
+implementation
+
+function GetVal(const astr : string) : Integer;
+begin
+  Result := StrToInt(astr);
+end;
+
+
+end.
+