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

* Fixed test so the same result as in Delphi

Browse Source 
git-svn-id: trunk@26877 -
This commit is contained in:
michael 2014-02-25 10:35:39 +00:00
parent e28824465f
commit 9faea4e757
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/test/cg/variants/ivarol105.pp
View File

@ -41,11 +41,16 @@ begin
end;
try
y105:='a';
v := y105;
test105(v);
Writeln('Did not catch exception as expected');
Halt(1)
except
on E : TObject do
halt(1);
begin
Writeln('Caught exception ',E.ClassName,'as expected');
end
end;
end;