paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 10:46:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* runtime check added

Browse Source
This commit is contained in:
peter 2002-12-27 14:51:22 +00:00
parent 9b6bd8d58e
commit 71b5cd69d7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw2196.pp
View File

@ -4,7 +4,6 @@
Program bugtest; Program bugtest;
{$Mode ObjFPC} {$Mode ObjFPC}
{ $Define bug_workaround}
uses classes; uses classes;
type type
@ -19,11 +18,12 @@ var
TestClass : TSomeClass; TestClass : TSomeClass;
begin begin
TestClass := TSomeClass.Create; TestClass := TSomeClass.Create;
{$IfDef bug_workaround}
TestClass.TestString := '' + TestClass.TestString + 'Whatever';
{$Else}
TestClass.TestString := TestClass.TestString + 'Whatever'; TestClass.TestString := TestClass.TestString + 'Whatever';
{$EndIF}
writeln(TestClass.TestString); writeln(TestClass.TestString);
if TestClass.TestString<>'Whatever' then
begin
writeln('Error!');
halt(1);
end;
TestClass.Free; TestClass.Free;
end. end.