5 ! Test proc-pointer dummies with ASSOCIATE
7 ! Contributed by Mat Cross of NAG
15 subroutine s(ss
, isassoc
)
18 procedure(sub
), pointer, intent(in
) :: ss
24 procedure(sub
) :: sub2
, pp
27 if (.not
. associated(pp
)) call abort ()
28 if (.not
. associated(pp
,sub2
)) call abort ()
31 if (associated(pp
)) call abort ()
32 if (associated(pp
,sub2
)) call abort ()
36 subroutine s(ss
, isassoc
)
39 procedure(sub
), pointer, intent(in
) :: ss
40 procedure(sub
) :: sub2
41 if (isassoc
.neqv
. associated(ss
)) call abort ()
42 if (isassoc
.neqv
. associated(ss
,sub2
)) call abort ()