paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* new test

Browse Source 
git-svn-id: trunk@2494 -
This commit is contained in:
peter 2006-02-09 07:54:25 +00:00
parent cdda841559
commit cbf91de10f
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

27
tests/webtbf/tw4777.pp Normal file
View File

@ -0,0 +1,27 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 4777 }
{ Submitted by "Phil H." on 2006-02-06 }
{ e-mail: pjhess@purdue.edu }
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.