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" } }