1! { dg-do run }
2! { dg-options "-O -fdump-tree-original" }
3program main
4  implicit none
5  character(len=4) :: c, d
6  integer :: n
7  integer :: i
8  common /foo/ i
9
10  n = 0
11  i = 0
12  c = 'abcd'
13  d = 'efgh'
14  if (c // 'a' >= d // 'a') call abort
15  if ('a' // c >= 'a' // d) call abort
16end program main
17
18! { dg-final { scan-tree-dump-times "gfortran_concat_string" 0 "original" } }
19! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } }
20! { dg-final { cleanup-tree-dump "original" } }
21
22