|
@@ -769,8 +769,11 @@ begin
|
|
if i<>2 then
|
|
if i<>2 then
|
|
do_error(1119);
|
|
do_error(1119);
|
|
|
|
|
|
- if memavail<>startmemavail then
|
|
|
|
- do_error(99999);
|
|
|
|
|
|
+ if memavail<startmemavail then
|
|
|
|
+ begin
|
|
|
|
+ writeln('exception generates memory holes');
|
|
|
|
+ do_error(99999);
|
|
|
|
+ end;
|
|
writeln('Test successfully passed');
|
|
writeln('Test successfully passed');
|
|
halt(0);
|
|
halt(0);
|
|
end.
|
|
end.
|