module Panic_2

contains

  subroutine foo ( N )
    integer :: N
    character(2) :: C(n)
    if ( any(c(2:)(1:1) /= c(1)(1:1)) ) then
    end if
  end subroutine foo

end module Panic_2
