
  TYPE
    clt$value_qualifier_kind = (clc$array_subscript_qualifier,
          clc$field_qualifier, clc$list_subscript_qualifier,
          clc$substring_qualifier, clc$unspecified_field_qualifier,
          clc$unspecified_subscript_qual, clc$unspecified_substring_qual,
          clc$range_qualifier, clc$invalid_field_qualifier,
          clc$invalid_subscript_qual, clc$invalid_substring_qual);
