
  TYPE
    clt$union_type_information = record
      only_standard_types_in_union: boolean,
      { The "standard" types have non-conflicting expression forms, therefore
      { an expression for a union of them can be evaluated without the need for
      { trying each type individually.  The "standard" types are:  boolean,
      { file, integer (if default radix is 10), name, real, status, string (if
      { not literal), string_pattern, and union (consisting only of these
      { "standard" types).
      min_integer_value: integer,
      max_integer_value: integer,
      default_radix: 2 .. 16,
      min_real_value: clt$longreal,
      max_real_value: clt$longreal,
    recend;

*copyc clc$max_integer
*copyc clc$min_integer
*copyc clt$longreal
