mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:07:54 +02:00
edaa0b3014
--- Reverse-merging r19116 into '.': U tests\webtbs\tw4675.pp U tests\webtbs\tw7758.pp U tests\webtbs\tw18702.pp U tests\webtbs\tw3595.pp U tests\webtbs\tw5001.pp U tests\webtbs\tw2250.pp U tests\webtbs\tw3492.pp U tests\webtbs\tw16004.pp G . --- Recording mergeinfo for reverse merge of r19116 into '.': G . git-svn-id: trunk@19135 -
52 lines
788 B
ObjectPascal
52 lines
788 B
ObjectPascal
{ OPT=-Sew }
|
|
|
|
{ Source provided for Free Pascal Bug Report 4675 }
|
|
{ Submitted by "Vicnent Snijders" on 2006-01-09 }
|
|
{ e-mail: vsnijders@quicknet.nl }
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
function GotHint_WantNoHint: string;
|
|
procedure Add(const s: string);
|
|
begin
|
|
Result := Result + s;
|
|
end;
|
|
begin
|
|
if result = 'abc' then;
|
|
Result := '';
|
|
Add('Test');
|
|
end;
|
|
|
|
function GotNoHint_OK: string;
|
|
var
|
|
a: string;
|
|
procedure Add(const s: string);
|
|
begin
|
|
a:= a+ s;
|
|
end;
|
|
begin
|
|
a:='';
|
|
Add('Test');
|
|
Result:=a;
|
|
end;
|
|
|
|
function GotNoHint_WantHint: string;
|
|
var
|
|
a: string;
|
|
procedure Add(const s: string);
|
|
begin
|
|
a:= a+ s;
|
|
end;
|
|
begin
|
|
Add('Test');
|
|
Result:=a;
|
|
end;
|
|
|
|
begin
|
|
writeln(GotHint_WantNoHint);
|
|
writeln(GotNoHint_OK);
|
|
writeln(GotNoHint_WantHint);
|
|
end.
|
|
|