
  TYPE
    clt$real_type_qualifier = record
      min_real_value: clt$longreal,
      max_real_value: clt$longreal,
    recend;

*copyc clt$longreal
