TINY returns a floating-point value that is the smallest positive
value x can assume. It has the base, mode, and precision,
of x.
>>-TINY(x)-----------------------------------------------------><
- x
- REAL FLOAT expression.
TINY(x) is a constant and can be used in restricted expressions.