! { dg-do compile } | |
! { dg-options "-fdump-tree-original" } | |
program test | |
character(kind=1,len=10) :: s1 = 4_"foobargee", t1 = 4_"" | |
character(kind=4,len=10) :: s4 = "foobargee", t4 = "" | |
t1(5:5) = s1(6:6) | |
t4(5:5) = s4(6:6) | |
t4(5:5) = s1(6:6) | |
t1(5:5) = s4(6:6) | |
call sub (t1, t4) | |
end program test | |
! { dg-final { scan-tree-dump-times "memmove" 0 "original" } } |