fpcsrc/tests/webtbs/tw16863.pp


1
2
3
4
5
6
7
8

var
    d : double;
    r : real48 = ($0, $0, $0, $0, $0, $0); 
BEGIN
    d := r;
    if d<>0.0 then
      halt(1);
END.