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

+ testing operator overloading

Browse Source
This commit is contained in:
mazen 2002-12-26 11:34:57 +00:00
parent 551caf65d2
commit 6e42e8acf0
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tb0441.pp Normal file
View File

@ -0,0 +1,10 @@
program Test;
operator :=(x:LongInt)RESULT:ShortString;
begin
Val(RESULT,x);
end;
var
s:ShortString;
begin
s:=12;
end.