home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPL60N11.ZIP / TESTPRGS.ZIP / INFBUG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-11-24  |  681 b   |  28 lines
  1. {$N+,E+}
  2. PROGRAM INFBug;
  3.  
  4. VAR X:  EXTENDED;
  5.     XA: ARRAY [1..5] OF WORD ABSOLUTE X;
  6.  
  7. BEGIN
  8.    WriteLn ('Testing correct printing of NANs');
  9.    XA [5] := $7FFF;
  10.    XA [4] := $8000;
  11.    XA [3] := $0000;
  12.    XA [2] := $0000;
  13.    XA [1] := $0001;
  14.    WriteLn ('First  NAN (7FFF 8000 0000 0000 0001) prints as: ', X);
  15.    XA [5] := $FFFF;
  16.    XA [4] := $8000;
  17.    XA [3] := $0000;
  18.    XA [2] := $8000;
  19.    XA [1] := $0000;
  20.    WriteLn ('Second NAN (FFFF 8000 0000 8000 0000) prints as: ', X);
  21.    XA [5] := $7FFF;
  22.    XA [4] := $8000;
  23.    XA [3] := $4000;
  24.    XA [2] := $0000;
  25.    XA [1] := $0000;
  26.    WriteLn ('Third  NAN (7FFF 8000 4000 0000 0000) prints as: ', X);
  27. END.
  28.