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