1! PR fortran/26246 2! { dg-options "-fdump-tree-original" } 3! { dg-do compile } 4 5module pr26246_1 6 implicit none 7 contains 8 function foo(string) 9 character(*), intent(in) :: string 10 character(len=len(string)+2) :: foo 11 if (index(trim(string), '"').ne.0) then 12 foo = "'" // trim(string) // "'" 13 end if 14 end function foo 15end module pr26246_1 16 17! { dg-final { scan-tree-dump-times "static int" 0 "original" } } 18! { dg-final { cleanup-tree-dump "original" } } 19