1! { dg-do run }
2! { dg-options "-O0 -fbounds-check" }
3! Tests patch for PR29371, in which the null pointer
4! assignment would cause a segfault with the bounds
5! check on.
6!
7! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de>
8!
9program test
10  implicit none
11  type projector_t
12    real,   pointer :: ket(:, :), bra(:, :)
13  end type projector_t
14
15  type(projector_t),pointer, dimension(:) :: p
16  integer :: stat,i
17  allocate(p(2),stat=stat)
18  do i = 1, 2
19        nullify(p(i)%bra)
20        nullify(p(i)%ket)
21  end do
22  do i = 1, 2
23        if (associated (p(i)%bra)) call abort ()
24        if (associated (p(i)%ket)) call abort ()
25  end do
26end program
27