1! { dg-do compile } 2! { dg-options "-fdump-tree-original" } 3 4program test 5 6 character(kind=1,len=10) :: s1 = 4_"foobargee", t1 = 4_"" 7 character(kind=4,len=10) :: s4 = "foobargee", t4 = "" 8 9 t1(5:5) = s1(6:6) 10 t4(5:5) = s4(6:6) 11 t4(5:5) = s1(6:6) 12 t1(5:5) = s4(6:6) 13 14 call sub (t1, t4) 15 16end program test 17 18! { dg-final { scan-tree-dump-times "memmove" 0 "original" } } 19