! { dg-do run }
! { dg-additional-options "-fcheck=bounds" }
!
! PR fortran/87045 - pointer to array of character
! Contributed by Valery Weber
! This used to give an invalid run-time error

program test
  character(:), dimension(:), allocatable, target :: t
  character(:), pointer, dimension(:) :: p
  allocate( character(3) :: t(2) )
  t(1) = "abc"
  t(2) = "123"
  p => t
  if (size (p) /= 2) stop 1
  if (len  (p) /= 3) stop 2
  if (p(1) /= "abc") stop 3
  if (p(2) /= "123") stop 4
end program test