Subversion Repositories openrisc

! { 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