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

* runtime test added

Browse Source
This commit is contained in:
peter 2002-11-27 14:24:45 +00:00
parent acb449fb1f
commit 713a8c3ca3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/tbs/tb0251.pp
View File

@ -1,7 +1,7 @@
{ Old file: tbs0291.pp } { Old file: tbs0291.pp }
{ @procvar in tp mode bugss OK 0.99.13 (PFV) } { @procvar in tp mode bugss OK 0.99.13 (PFV) }
{$mode tp} {$ifdef fpc}{$mode tp}{$endif}
function ReturnString: string; function ReturnString: string;
begin begin
@ -11,6 +11,11 @@ end;
procedure AcceptString(S: string); procedure AcceptString(S: string);
begin begin
WriteLn('Got: ', S); WriteLn('Got: ', S);
if S<>'A string' then
begin
writeln('ERROR!');
halt(1);
end;
end; end;
type type