! { dg-do run } ! { dg-options "-O0 -fbounds-check" } ! Tests patch for PR29371, in which the null pointer ! assignment would cause a segfault with the bounds ! check on. ! ! Contributed by Tobias Burnus ! program test implicit none type projector_t real, pointer :: ket(:, :), bra(:, :) end type projector_t type(projector_t),pointer, dimension(:) :: p integer :: stat,i allocate(p(2),stat=stat) do i = 1, 2 nullify(p(i)%bra) nullify(p(i)%ket) end do do i = 1, 2 if (associated (p(i)%bra)) call abort () if (associated (p(i)%ket)) call abort () end do end program