
  TYPE
    clt$array_type_qualifier = record
      element_type_specification_size: clt$type_specification_size,
      case array_bounds_defined: boolean of
      = TRUE =
        bounds: clt$array_bounds,
      = FALSE =
        ,
      casend,
      { A clt$type_specification for the element type follows the }
      { clt$array_type_qualifier. }
    recend;

*copyc clt$array_bounds
*copyc clt$type_specification
*copyc clt$type_specification_size
