$title Pentium Error Test (PENTIUM,SEQ=162)

$onText
Early Pentium chips have an error in the floating point unit
which causes incorrect divisions.

House, B, Internet Communications.

Keywords: floating-point arithmetic, accuracy check, mathematics
$offText

Scalar
   a / 4195835 /
   b / 3145727 /
   p 'temporary value'
   d 'this should be zero';

p = a/b;
d = p*b - a;
display d;

if(d,
   display '***************************************************'
           '* Your Pentium chip has THE floating point error. *'
           '***************************************************';
else
   display 'Your Pentium chip is OK.';
);