blob: 38aed04b2cc51ac2d4da83bd40d38fd4b9580685 [file] [log] [blame]
! { dg-do run }
! { dg-options "-O -fdump-tree-original" }
program main
implicit none
character(len=4) :: c, d
integer :: n
integer :: i
common /foo/ i
n = 0
i = 0
c = 'abcd'
d = 'efgh'
if (c // 'a' >= d // 'a') STOP 1
if ('a' // c >= 'a' // d) STOP 2
end program main
! { dg-final { scan-tree-dump-times "gfortran_concat_string" 0 "original" } }
! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } }