vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 11:02:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for Out.Real, Out.LongReal.

Browse source
This commit is contained in:
David Brown 2016-10-08 17:30:44 +01:00
parent a828ff79a4
commit ebd1a2e695
7 changed files with 512 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

119
src/test/confidence/out/outtest.mod Normal file
View file

@ -0,0 +1,119 @@
MODULE outtest;
IMPORT Out;
VAR
r: REAL;
lr: LONGREAL;
PROCEDURE ws(s: ARRAY OF CHAR); BEGIN Out.String(s) END ws;
PROCEDURE wi(i: HUGEINT); BEGIN Out.Int(i,1) END wi;
PROCEDURE wl; BEGIN Out.Ln END wl;
BEGIN
ws("Out module tests."); wl;
ws("SIZE(INTEGER) = "); wi(SIZE(INTEGER)); wl; wl;
ws("Testing LONGREAL."); wl; wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0D0: "); Out.LongReal( 1.0D0, 1); wl;
ws(" 1.1D0: "); Out.LongReal( 1.1D0, 1); wl;
ws(" 2.1D0: "); Out.LongReal( 2.1D0, 1); wl;
ws("-1.1D0: "); Out.LongReal(-1.1D0, 1); wl;
ws(" 1.1D3: "); Out.LongReal( 1.1D3, 1); wl;
ws(" 1.1D-3: "); Out.LongReal( 1.1D-3, 1); wl;
ws(" 1.2345678987654321D3: "); Out.LongReal( 1.2345678987654321D3, 1); wl;
ws(" 0.0: "); Out.LongReal(0.0, 1); wl;
ws(" 0.000123D0: "); Out.LongReal(0.000123D0, 1); wl;
lr := 0.0; lr := 1/lr;
ws(" 1/0.0: "); Out.LongReal(lr, 1); wl;
lr := 0.0; lr := -1/lr;
ws("-1/0.0: "); Out.LongReal(lr, 1); wl;
wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0D0: "); Out.LongReal( 1.0D0, 12); wl;
ws(" 1.1D0: "); Out.LongReal( 1.1D0, 12); wl;
ws(" 2.1D0: "); Out.LongReal( 2.1D0, 12); wl;
ws("-1.1D0: "); Out.LongReal(-1.1D0, 12); wl;
ws(" 1.1D3: "); Out.LongReal( 1.1D3, 12); wl;
ws(" 1.1D-3: "); Out.LongReal( 1.1D-3, 12); wl;
ws(" 1.2345678987654321D3: "); Out.LongReal( 1.2345678987654321D3, 12); wl;
ws(" 0.0: "); Out.LongReal(0.0, 12); wl;
ws(" 0.000123D0: "); Out.LongReal(0.000123D0, 12); wl;
lr := 0.0; lr := 1/lr;
ws(" 1/0.0: "); Out.LongReal(lr, 12); wl;
lr := 0.0; lr := -1/lr;
ws("-1/0.0: "); Out.LongReal(lr, 12); wl;
wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0D0: "); Out.LongReal( 1.0D0, 30); wl;
ws(" 1.1D0: "); Out.LongReal( 1.1D0, 30); wl;
ws(" 2.1D0: "); Out.LongReal( 2.1D0, 30); wl;
ws("-1.1D0: "); Out.LongReal(-1.1D0, 30); wl;
ws(" 1.1D3: "); Out.LongReal( 1.1D3, 30); wl;
ws(" 1.1D-3: "); Out.LongReal( 1.1D-3, 30); wl;
ws(" 1.2345678987654321D3: "); Out.LongReal( 1.2345678987654321D3, 30); wl;
ws(" 0.0: "); Out.LongReal(0.0, 30); wl;
ws(" 0.000123D0: "); Out.LongReal(0.000123D0, 30); wl;
lr := 0.0; lr := 1/lr;
ws(" 1/0.0: "); Out.LongReal(lr, 30); wl;
lr := 0.0; lr := -1/lr;
ws("-1/0.0: "); Out.LongReal(lr, 30); wl;
wl; wl; wl;
ws("Testing REAL."); wl; wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0E0: "); Out.Real( 1.0E0, 1); wl;
ws(" 1.1E0: "); Out.Real( 1.1E0, 1); wl;
ws(" 2.1E0: "); Out.Real( 2.1E0, 1); wl;
ws("-1.1E0: "); Out.Real(-1.1E0, 1); wl;
ws(" 1.1E3: "); Out.Real( 1.1E3, 1); wl;
ws(" 1.1E-3: "); Out.Real( 1.1E-3, 1); wl;
ws(" 1.2345678987654321E3: "); Out.Real( 1.2345678987654321E3, 1); wl;
ws(" 0.0: "); Out.Real(0.0, 1); wl;
ws(" 0.000123E0: "); Out.Real(0.000123E0, 1); wl;
r := 0.0; r := 1/r;
ws(" 1/0.0: "); Out.Real(r, 1); wl;
r := 0.0; r := -1/r;
ws("-1/0.0: "); Out.Real(r, 1); wl;
wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0E0: "); Out.Real( 1.0E0, 12); wl;
ws(" 1.1E0: "); Out.Real( 1.1E0, 12); wl;
ws(" 2.1E0: "); Out.Real( 2.1E0, 12); wl;
ws("-1.1E0: "); Out.Real(-1.1E0, 12); wl;
ws(" 1.1E3: "); Out.Real( 1.1E3, 12); wl;
ws(" 1.1E-3: "); Out.Real( 1.1E-3, 12); wl;
ws(" 1.2345678987654321E3: "); Out.Real( 1.2345678987654321E3, 12); wl;
ws(" 0.0: "); Out.Real(0.0, 12); wl;
ws(" 0.000123E0: "); Out.Real(0.000123E0, 12); wl;
r := 0.0; r := 1/r;
ws(" 1/0.0: "); Out.Real(r, 12); wl;
r := 0.0; r := -1/r;
ws("-1/0.0: "); Out.Real(r, 12); wl;
wl;
ws(" 1 2 3"); wl;
ws(" 123456789012345678901234567890"); wl;
ws(" 1.0E0: "); Out.Real( 1.0E0, 30); wl;
ws(" 1.1E0: "); Out.Real( 1.1E0, 30); wl;
ws(" 2.1E0: "); Out.Real( 2.1E0, 30); wl;
ws("-1.1E0: "); Out.Real(-1.1E0, 30); wl;
ws(" 1.1E3: "); Out.Real( 1.1E3, 30); wl;
ws(" 1.1E-3: "); Out.Real( 1.1E-3, 30); wl;
ws(" 1.2345678987654321E3: "); Out.Real( 1.2345678987654321E3, 30); wl;
ws(" 0.0: "); Out.Real(0.0, 30); wl;
ws(" 0.000123E0: "); Out.Real(0.000123E0, 30); wl;
r := 0.0; r := 1/r;
ws(" 1/0.0: "); Out.Real(r, 30); wl;
r := 0.0; r := -1/r;
ws("-1/0.0: "); Out.Real(r, 30); wl;
wl;
END outtest.