
  TYPE
    llt$fortran_string_length = record
      attributes: llt$fortran_string_attributes,
      number_of_characters: llt$fortran_string_size,
    recend;

  TYPE
    llt$fortran_string_size = 0 .. llc$max_fortran_string_size;

  TYPE
    llt$fortran_string_attributes = set of llt$fortran_string_attribute,

    llt$fortran_string_attribute = (llc$fortran_assumed_len_string,
      llc$fsa_reserved_7, llc$fsa_reserved_6, llc$fsa_reserved_5,
      llc$fsa_reserved_4, llc$fsa_reserved_3, llc$fsa_reserved_2,
      llc$fsa_reserved_1);

  CONST
    llc$max_fortran_string_size = 0ffff(16);
