! { dg-do run } | |
! { dg-options "-O -fdump-tree-original" } | |
! PR 47065 - replace trim with substring expressions. | |
program main | |
character(len=10) :: a, b | |
character(kind=4,len=10) :: a4, b4 | |
character(len=100) :: line | |
a = 'bcd' | |
b = trim(a) // 'x' | |
if (b /= 'bcdx') STOP 1 | |
a4 = 4_"bcd" | |
b4 = trim(a4) // 4_'x' | |
if (b4 /= 4_'bcdx') STOP 2 | |
end | |
! { dg-final { scan-tree-dump-times "string_len_trim" 2 "original" } } |