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