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

* give a different error if the second test fails

Browse Source 
git-svn-id: trunk@25263 -
This commit is contained in:
Jonas Maebe 2013-08-16 10:04:59 +00:00
parent 9f023fcfe0
commit 51f7d0645a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw24536.pp
View File

@ -17,5 +17,5 @@ begin
Halt(1); Halt(1);
Foo2 := @TMyClass2.MyAbstractMethod; Foo2 := @TMyClass2.MyAbstractMethod;
if Foo<>Foo2 then if Foo<>Foo2 then
Halt(1); Halt(2);
end. end.