home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPL60N11.ZIP / TESTPRGS.ZIP / BUG87.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-03  |  807 b   |  24 lines
  1.      {$A+,B+,D+,E-,F-,G-,I+,L+,N+,O-,R+,S+,V+,X-}
  2.      {$M 16384,0,655360}
  3.  
  4.      PROGRAM BUG87;        { demonstrates some strange behavior on 8087/287 }
  5.  
  6.      VAR X: EXTENDED;      { allows storing of denormal }
  7.          L: WORD;
  8.  
  9.      BEGIN
  10.        WriteLn ('Turbo-Pascal 6.0 floating point exception bug demo program');
  11.        WriteLn;
  12.        WriteLn ('Continously dividing 4e-4932 by 1.1...');
  13.        WriteLn;
  14.        X := 4e-4932;       { close to smallest normalized EXTENDED number }
  15.        FOR L := 1 TO 5 DO BEGIN
  16.           X := X / 1.1;
  17.           Write (X:25);
  18.           IF L > 1 THEN    { after 1st iter. underflow w/ flush to zero }
  19.              WriteLn ('   should be: ', 0.0:25)
  20.           ELSE
  21.              WriteLn ('   should be: ', X:25);
  22.        END;
  23.      END. {87BUG}
  24.