1! Check that associated works correctly for character arrays.
2! { dg-do run }
3program main
4  character (len = 5), dimension (:), pointer :: ptr
5  character (len = 5), dimension (2), target :: a = (/ 'abcde', 'fghij' /)
6  ptr => a
7  if (.not. associated (ptr, a)) call abort
8end program main
9