|
@@ -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.
|