home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
TPL60N19
/
TESTPRGS
/
INFBUG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-05-01
|
729b
|
28 lines
PROGRAM INFBug; { Copyright (c) 1992 Norbert Juffa }
{$N+,E+}
VAR X: EXTENDED;
XA: ARRAY [1..5] OF WORD ABSOLUTE X;
BEGIN
WriteLn ('Testing correct printing of NANs');
XA [5] := $7FFF;
XA [4] := $8000;
XA [3] := $0000;
XA [2] := $0000;
XA [1] := $0001;
WriteLn ('First NAN (7FFF 8000 0000 0000 0001) prints as: ', X);
XA [5] := $FFFF;
XA [4] := $8000;
XA [3] := $0000;
XA [2] := $8000;
XA [1] := $0000;
WriteLn ('Second NAN (FFFF 8000 0000 8000 0000) prints as: ', X);
XA [5] := $7FFF;
XA [4] := $8000;
XA [3] := $4000;
XA [2] := $0000;
XA [1] := $0000;
WriteLn ('Third NAN (7FFF 8000 4000 0000 0000) prints as: ', X);
END. { InfBg }