anchor.diff:        retValue = adjustr(this%chr)
       end if
     end function adjRStr
  +
  +  elemental function lenTrimStr(this) result(retValue)
  +    class(string), intent(in) :: this
  +    integer                   :: retValue
  +    if(allocated(this%chr)) then
  +      retValue = len_trim(this%chr)
  +    else
  +      retValue = 0
  +    end if
  +  end function lenTrimStr
   
     ! ================================================================ !
     !  String Manipulation
  
positive.code:     procedure, private, pass(this)  :: trimStr
      procedure, private, pass(this)  :: adjLStr
      procedure, private, pass(this)  :: adjRStr
  
      procedure, private, pass(this)  :: stripStr
      procedure, private, pass(this)  :: upperStr
  
negative.code:   interface adjustr
      module procedure adjRStr
    end interface adjustr
  
    interface len_trim
      module procedure lenTrimStr
    end interface len_trim
  
    interface assignment(=)
      module procedure assignStrStr
  