1! { dg-do compile } 2! { dg-options "-O2" } 3! PR fortran/92874 4program p 5 call s('a') 6 call s('abc') 7end 8subroutine s(x) 9 character(*) :: x 10 print *, (x(1:1) == x(1:)) 11end 12