blob: 415079ce185075eba0cbb9059f423b8b51561e6d [file] [log] [blame]
! Check that associated works correctly for character arrays.
! { dg-do run }
program main
character (len = 5), dimension (:), pointer :: ptr
character (len = 5), dimension (2), target :: a = (/ 'abcde', 'fghij' /)
ptr => a
if (.not. associated (ptr, a)) STOP 1
end program main