! { 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