2 ! This tests the fix for PR30190, in which the array reference
3 ! in the associated statement would cause a segfault.
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 INTEGER, POINTER :: p(:)
10 TYPE(particle_type), POINTER :: t(:)
16 f = associated(t(i)%p,t(i)%p)