PRED returns a floating-point value that is
the biggest representable number smaller than x.
It has the base, mode, and precision of x. OVERFLOW will be raised
if there is no such number.
x
REAL FLOAT expression.
PRED(TINY(X)) will return zero and will not raise UNDERFLOW.