1! { dg-do compile } 2! { dg-options "-O -fdump-tree-original" } 3! Check that trailing trims are also removed from assignment of 4! expressions involving concatenations of strings . 5program main 6 character(2) :: a,b 7 character(8) :: d 8 a = 'a ' 9 b = 'b ' 10 if (trim(a // trim(b)) /= 'a b ') call abort 11 if (trim (trim(a) // trim(b)) /= 'ab ') call abort 12end 13! { dg-final { scan-tree-dump-times "string_len_trim" 1 "original" } } 14! { dg-final { cleanup-tree-dump "original" } } 15