
  TYPE
    llt$fortran_array_size = record
      attributes: llt$fortran_array_attributes,
      rank: llt$fortran_array_rank,
      number_of_elements: llt$section_length,
    recend;

  TYPE
    llt$fortran_array_attributes = set of llt$fortran_array_attribute,

    llt$fortran_array_attribute = (llc$fortran_assumed_len_array,
      llc$fortran_adaptable_array, llc$fortran_assumed_shape_array,
      llc$fortran_array_section,
      llc$faa_reserved_4, llc$faa_reserved_3, llc$faa_reserved_2,
      llc$faa_reserved_1);

  TYPE
    llt$fortran_array_rank = 0 .. llc$max_fortran_array_rank;

  CONST
    llc$max_fortran_array_rank = 7;

*copyc llt$section_address
