| ! { 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" } } |