! { dg-do compile }
! { dg-options "-O -Wall" }
! PR 94091 - this used to give a bogus warning.
! Test case by "MikeS".
program tester
  character(50) cname,fred
  fred='1234567890123456789012345678901234567890' ! 40 characters
  kk=len_trim(fred)
  cname=fred(5:kk)
  print *,kk,cname
end program tester