• Pascal

if AnsiEndsStr(w, s) then
  t := copy(s, 1, length(s) - length(w))
else
  t :=s;

• C#

string t = s.TrimEnd(w);

• D

string t = s.chomp(w);

• Fortran

  i = index(s,w,back=.true.) - 1
  if (i == len(s) - len(w) ) then
     allocate (t, source=s(:i))
  else
     allocate (t, source=s)
  end if

• Go

t := strings.TrimSuffix(s, w)

• Haskell

t :: String
t = if w `isSuffixOf` s then take (length s - length w) else s

• JS

const t = s.endsWith(w) ? s.slice(0, -w.length) : s

• Java

String t = s.replaceAll(quote(w) + '$', "");

• Java

int i = s.lastIndexOf(w),
    m = s.length(), n = w.length();
t = i == m - n ? s.substring(0, i) : s;

• Java

String t = s;
int index = s.lastIndexOf(w);
if (index + w.length() == s.length()) {
    t = s.substring(0, index);
}

• Lua

local t = s:gsub(w.."$", "")

• PHP

preg_replace("/{$w}$/u", '', $s);

• Perl

if (length $s == rindex($s, $w) + length $w) {
    my $t = substr $s, 0, rindex $s, $w;
}

• Python

t = s.removesuffix(w)

• Ruby

t = s.delete_suffix(w)

• Ruby

t = s.sub(/#{w}\z/, "")

• Rust

let t = s.strip_suffix(w).unwrap_or(s);

• Rust

let t = s.trim_end_matches(w);