18 lines
419 B
Fortran
18 lines
419 B
Fortran
! { dg-do run }
|
|
! This tests the fix for PR30190, in which the array reference
|
|
! in the associated statement would cause a segfault.
|
|
!
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
TYPE particle_type
|
|
INTEGER, POINTER :: p(:)
|
|
END TYPE particle_type
|
|
TYPE(particle_type), POINTER :: t(:)
|
|
integer :: i
|
|
logical :: f
|
|
i = 1
|
|
allocate(t(1))
|
|
allocate(t(1)%p(0))
|
|
f = associated(t(i)%p,t(i)%p)
|
|
end
|