2 ! { dg-options "-fdump-tree-original" }
6 character(kind=1,len=10) :: s1 = 4_"foobargee", t1 = 4_""
7 character(kind=4,len=10) :: s4 = "foobargee", t4 = ""
18 ! { dg-final { scan-tree-dump-times "memmove" 0 "original" } }
19 ! { dg-final { cleanup-tree-dump "original" } }