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