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

* fixed test

Browse Source 
git-svn-id: trunk@1371 -
This commit is contained in:
florian 2005-10-13 20:01:17 +00:00
parent 0bc7d92310
commit 2dd7c144c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0441.pp
View File

@ -1,6 +1,6 @@
{$mode fpc} {$mode fpc}
operator :=(x:LongInt)RESULT:ShortString; operator :=(x:ShortInt)RESULT:ShortString;
begin begin
Val(RESULT,x); Val(RESULT,x);
end; end;