1! { dg-do run } 2! { dg-options "-fdump-tree-original" } 3program main 4 implicit none 5 character(len=4) :: c 6 integer :: i 7 integer :: k1, k2, k3, k4, k11, k22, k33, k44 8 9 k1 = 1 10 k2 = 2 11 k3 = 3 12 k4 = 4 13 k11 = 1 14 k22 = 2 15 k33 = 3 16 k44 = 4 17 c = 'abcd' 18 if (c(2:) /= c(k2:k4)) call abort 19 if (c(k2:k4) /= c(k22:)) call abort 20 if (c(2:3) == c(1:2)) call abort 21 if (c(1:2) == c(2:3)) call abort 22 if (c(k1:) == c(k2:)) call abort 23 if (c(:3) == c(:k4)) call abort 24 if (c(:k4) == c(:3)) call abort 25 if (c(:k3) == c(:k44)) call abort 26end program main 27 28! { dg-final { scan-tree-dump-times "gfortran_compare_string" 6 "original" } } 29! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } } 30! { dg-final { cleanup-tree-dump "original" } } 31 32