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

+ tests for previous commit

Browse Source 
git-svn-id: trunk@4958 -
This commit is contained in:
Jonas Maebe 2006-10-18 18:15:20 +00:00
parent 2dd6a91a9f
commit de27a80cc9
3 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6327,6 +6327,8 @@ tests/test/tinline3.pp svneol=native#text/plain
tests/test/tinline4.pp svneol=native#text/plain
tests/test/tinline5.pp -text
tests/test/tinline6.pp svneol=native#text/plain
tests/test/tint2str1.pp svneol=native#text/plain
tests/test/tint2str2.pp svneol=native#text/plain
tests/test/tint641.pp svneol=native#text/plain
tests/test/tint642.pp svneol=native#text/plain
tests/test/tint643.pp svneol=native#text/plain

14
tests/test/tint2str1.pp Normal file
View File

@ -0,0 +1,14 @@
{$mode macpas}
procedure test(s: string);
begin
if s <> 'abcd' then
halt(1);
end;
var
l: longint;
begin
l := 'abcd';
test(l);
end.

15
tests/test/tint2str2.pp Normal file
View File

@ -0,0 +1,15 @@
{% fail}
{$mode fpc}
procedure test(s: string);
begin
halt(0);
end;
var
l: longint;
begin
l := 'abcd';
test(l);
end.