2 ! { dg-options "-fdump-tree-original" }
9 character(*), intent(in) :: string
10 character(len=len(string)+2) :: foo
11 if (index(trim(string), '"').ne.0) then
12 foo = "'" // trim(string) // "'"
17 ! { dg-final { scan-tree-dump-times "static int" 0 "original" } }
18 ! { dg-final { cleanup-tree-dump "original" } }
19 ! { dg-final { cleanup-modules "pr26246_1" } }