diff --git a/tests/test/tobject1.pp b/tests/test/tobject1.pp index b63b486c51..7245ed66a1 100644 --- a/tests/test/tobject1.pp +++ b/tests/test/tobject1.pp @@ -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. \ No newline at end of file