14 type(t2), pointer :: f2,a
21 type(t2), pointer :: a
23 if (.not. associated(a,f(a))) call abort()
28 subroutine cmpPtr(a,b)
29 type(t2), pointer :: a,b
30 ! print *, associated(a,b)
31 if (.not. associated (a, b)) call abort()
35 ! { dg-final { cleanup-modules "m" } }