3 ! NULL() initialization for PROCEDURE POINTERS
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
14 integer function hello()
18 subroutine test(first
)
21 procedure(integer), pointer :: x
=> null()
24 if(associated(x
)) STOP 1
27 if(.not
. associated(x
)) STOP 2