Add tests for Out.Real, Out.LongReal.

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

View file

@ -0,0 +1,93 @@
Out module tests.
SIZE(INTEGER) = 2
Testing LONGREAL.
1 2 3
123456789012345678901234567890
1.0D0: 1.0D+000
1.1D0: 1.1D+000
2.1D0: 2.1D+000
-1.1D0: -1.1D+000
1.1D3: 1.1D+003
1.1D-3: 1.1D-003
1.2345678987654321D3: 1.23456789876543D+003
0.0: 0.0D+000
0.000123D0: 1.23D-004
1/0.0: Infinity
-1/0.0: -Infinity
1 2 3
123456789012345678901234567890
1.0D0: 1.00000D+000
1.1D0: 1.10000D+000
2.1D0: 2.10000D+000
-1.1D0: -1.1000D+000
1.1D3: 1.10000D+003
1.1D-3: 1.10000D-003
1.2345678987654321D3: 1.23456789876543D+003
0.0: 0.00000D+000
0.000123D0: 1.23000D-004
1/0.0: Infinity
-1/0.0: -Infinity
1 2 3
123456789012345678901234567890
1.0D0: 1.000000000000000D+000
1.1D0: 1.100000000000000D+000
2.1D0: 2.100000000000000D+000
-1.1D0: -1.100000000000000D+000
1.1D3: 1.100000000000000D+003
1.1D-3: 1.100000000000000D-003
1.2345678987654321D3: 1.234567898765430D+003
0.0: 0.000000000000000D+000
0.000123D0: 1.230000000000000D-004
1/0.0: Infinity
-1/0.0: -Infinity
Testing REAL.
1 2 3
123456789012345678901234567890
1.0E0: 1.0E+00
1.1E0: 1.1E+00
2.1E0: 2.1E+00
-1.1E0: -1.1E+00
1.1E3: 1.1E+03
1.1E-3: 1.1E-03
1.2345678987654321E3: 1.234568E+03
0.0: 0.0E+00
0.000123E0: 1.23E-04
1/0.0: Infinity
-1/0.0: -Infinity
1 2 3
123456789012345678901234567890
1.0E0: 1.000000E+00
1.1E0: 1.100000E+00
2.1E0: 2.100000E+00
-1.1E0: -1.10000E+00
1.1E3: 1.100000E+03
1.1E-3: 1.100000E-03
1.2345678987654321E3: 1.234568E+03
0.0: 0.000000E+00
0.000123E0: 1.230000E-04
1/0.0: Infinity
-1/0.0: -Infinity
1 2 3
123456789012345678901234567890
1.0E0: 1.0000000E+00
1.1E0: 1.1000000E+00
2.1E0: 2.1000000E+00
-1.1E0: -1.1000000E+00
1.1E3: 1.1000000E+03
1.1E-3: 1.1000000E-03
1.2345678987654321E3: 1.2345680E+03
0.0: 0.0000000E+00
0.000123E0: 1.2300000E-04
1/0.0: Infinity
-1/0.0: -Infinity