2 ! { dg-options "-fbounds-check" }
3 ! This tests the fix for PR30190, in which the array reference
4 ! in the associated statement would cause a segfault.
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
9 INTEGER, POINTER :: p(:)
10 END TYPE particle_type
11 TYPE(particle_type
), POINTER :: t(:)
17 f
= associated(t(i
)%p
,t(i
)%p
)
