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