
  TYPE
    clt$integer_type_qualifier = record
      min_integer_value: integer,
      max_integer_value: integer,
      default_radix: 2 .. 16,
    recend;

*copyc clc$max_integer
*copyc clc$min_integer
