From 2e581da5a6f235d54c907a268b449293575bfb28 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Nov 2004 17:16:12 +0000
Subject: [PATCH] * fixed test
---
tests/test/tobject1.pp | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
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