2 ! { dg-options "-O -fdump-tree-original" }
3 ! PR 40628 - optimize unnecessary TRIMs on assignment
6 character(len
=4) :: b
,c
10 if (a
/= 'abc') STOP 1
11 if (c
/= 'abc') STOP 2
14 ! { dg-final { scan-tree-dump-times "memmove" 3 "original" } }
15 ! { dg-final { scan-tree-dump-times "string_trim" 0 "original" } }