27 lines
660 B
Fortran
27 lines
660 B
Fortran
! { 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 <tobias.burnus@physik.fu-berlin.de>
|
|
!
|
|
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
|