mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-03 22:30:27 +02:00
* fixed test.
git-svn-id: trunk@7766 -
This commit is contained in:
parent
4fde74cb40
commit
98c1a8c386
@ -1,7 +1,7 @@
|
||||
program stored;
|
||||
{$mode objfpc}{$h+}
|
||||
uses
|
||||
Classes;
|
||||
SysUtils, Classes;
|
||||
|
||||
const
|
||||
ShowTheException = true; //set this to false for halt(128) instead of exception
|
||||
@ -106,4 +106,3 @@ begin
|
||||
writeln('ok. done.');
|
||||
DeleteFile('testfile.tmp');
|
||||
end.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user