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