diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-07-12 21:39:50 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-07-12 21:39:50 +0000 |
commit | 87fe284a643f0cebf94ca57a379a45399894f7eb (patch) | |
tree | f9c9df7fdd258ac993a7fde81abc07e2a8ae1b88 /tests/tbs | |
parent | 3e864488efc50f627f37f511dd55a16c319541c6 (diff) | |
download | fpc-87fe284a643f0cebf94ca57a379a45399894f7eb.tar.gz |
+ support for the directive $EXCESSPRECISION
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39443 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbs')
-rw-r--r-- | tests/tbs/tb0648.pp | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/tbs/tb0648.pp b/tests/tbs/tb0648.pp new file mode 100644 index 0000000000..cc0106e66c --- /dev/null +++ b/tests/tbs/tb0648.pp @@ -0,0 +1,22 @@ +{$excessprecision on} +const + d1: double = 1.0/3.0; + d2: double = 1/3; + x1: extended = 1.0/3.0; + x2: extended = 1/3; + s1: single = 1.0/3.0; + s2: single = 1/3; +begin + writeln(s1:30:10, s2:30:10); + if s1<>s2 then + halt(1); + writeln(d1:30:16, d2:30:16); + if d1<>d2 then + halt(1); +{$ifdef FPUX87} + writeln(x1:30:24, x2:30:24); + if x1<>x2 then + halt(1); +{$endif FPUX87} + writeln('ok'); +end. |