paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use erroru

Browse Source
This commit is contained in:
pierre 1999-05-17 13:58:01 +00:00
parent 28e6c92973
commit 8f2b19b932
4 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/tbs0005.pp
View File

@ -1,3 +1,6 @@
uses
erroru;
begin
if 1=1 then
begin
@ -5,6 +8,6 @@ begin
end;
if 1<>1 then
begin
Halt(1);
Error;
end;
end.

4
tests/tbs0006.pp
View File

@ -1,3 +1,5 @@
uses
erroru;
var
a,b,c,d,e,f,g,r : double;
@ -12,5 +14,5 @@ begin
a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
writeln(a,' (must be -1010)');
if a<>-1010.0 then
Halt(1);
Error;
end.

5
tests/tbs0007.pp
View File

@ -1,3 +1,6 @@
uses
erroru;
var
count : byte;
test : longint;
@ -8,7 +11,7 @@ begin
inc(test);
writeln(count,'. loop');
if test>127 then
Halt(1);
Error;
end;
end.

4
tests/testansi.pp
View File

@ -451,9 +451,10 @@ begin
Domem(tempmem);
end;
Var StartMem : Longint;
Var GlobalStartMem,StartMem : Longint;
begin
GlobalStartMem:=MemAvail;
StartMem:=MemAvail;
Writeln ('Testing Initialize/Finalize.');
TestInitFinal;
@ -482,4 +483,5 @@ begin
Writeln;Writeln ('Testing standard functions.');
TestStdfunc;
Write ('End of standard functions: ');DoMem(StartMem);
Write ('For the whole program ');DoMem(GlobalStartMem);
end.