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