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