May  8 2002   8:05:22.739 AM
 
BIG_INTS
  Demonstrate the use of "big" integers.
 
TEST01
  Use integers of the default type.
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =   2147483647
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =            9
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =            4
 
TEST02
  Use integers of KIND = 8.
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =      9223372036854775807
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =           18
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =            8
 
BIG_INTS
  Normal end of execution.