paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 04:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test

Browse Source
This commit is contained in:
florian 2004-11-28 17:16:12 +00:00
parent 78dcc31778
commit 2e581da5a6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/tobject1.pp
View File

@ -1,4 +1,3 @@
{ %RESULT=210 }
{$R+}
program test_fail;
@ -69,7 +68,7 @@ program test_fail;
mem : sizeint;
begin
require_error(210);
mem:=0;
DoMem(mem);
new(pa1,init(false));
@ -96,4 +95,4 @@ program test_fail;
writeln('typeof(ta2) = ',ptrint(typeof(ta2)),' after unsuccessful init');
Writeln('Trying to call ta2.test (should generate a Run Time Error)');
ta2.test;
end.
end.