
  TYPE
    clt$real = record
      value: longreal,
      number_of_digits: clt$real_number_digit_count,
    recend;

*copyc clt$real_number_digit_count
