1! { dg-do run }
2! { dg-options "-fdump-tree-original" }
3program main
4  character (len=2) :: a, b
5  character (kind=4,len=4) :: c,d
6  a = 'ab'
7  b = 'aa'
8  if (a < b) STOP 1
9  c = 4_"aaaa"
10  d = 4_"aaab"
11  if (c == d) STOP 2
12  if (c > d) STOP 3
13end program main
14! { dg-final { scan-tree-dump-times "_gfortran_compare_string_char4" 1 "original" } }
15! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } }
16