paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extended test

Browse Source 
git-svn-id: trunk@5005 -
This commit is contained in:
Jonas Maebe 2006-10-22 18:17:47 +00:00
parent 943582b5f0
commit 9f5a2063a1
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/tint2str1.pp
View File

@ -1,14 +1,22 @@
{$mode macpas}
procedure test(s: string);
procedure test(const s: string);
begin
if s <> 'abcd' then
halt(1);
end;
procedure test2(c1,c2,c3,c4: char);
begin
if (c1 <> 'a') or (c2 <> 'b') or (c3 <> 'c') or (c4 <> 'd') then
halt(2);
end;
var
l: longint;
begin
l := 'abcd';
test(l);
test2(char(l shr 24),char(l shr 16),char(l shr 8),char(l));
end.