index
:
fpc
master
pristine-tar
upstream
[no description]
Dyson
summary
refs
log
tree
commit
diff
log msg
author
committer
range
path:
root
/
fpcsrc
/
tests
/
webtbs
/
tw22290.pp
blob: 2a9e613da54b85056184a07fa440ce00e5fd8a19 (
plain
)
1
2
3
4
5
6
7
uses SysUtils
;
begin
if
formatfloat
(
'0e'
,-
1
)<>
'-1e'
then
halt
(
1
);
end
.
