1! { dg-do compile } 2! { dg-options "-ffrontend-optimize -fdump-tree-original" } 3! PR 52861 - optimize this to c = '' so that there is 4! no memcpy in the generated code. 5program main 6 character (len=20) :: c 7 c = ' ' 8 print *,c 9end program main 10! { dg-final { scan-tree-dump-times "memcpy" 0 "original" } } 11! { dg-final { cleanup-tree-dump "original" } } 12