Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / string_assign_1.f90
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.
5 program main
6   character (len=20) :: c
7   c = '     '
8   print *,c
9 end program main
10 ! { dg-final { scan-tree-dump-times "memcpy" 0 "original" } }
11 ! { dg-final { cleanup-tree-dump "original" } }