paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 01:09:13 +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 begin
if 1=1 then if 1=1 then
begin begin
@ -5,6 +8,6 @@ begin
end; end;
if 1<>1 then if 1<>1 then
begin begin
Halt(1); Error;
end; end;
end. end.

4
tests/tbs0006.pp
View File

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

5
tests/tbs0007.pp
View File

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

4
tests/testansi.pp
View File

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