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)) call abort()
27 if(.not. associated(x)) call abort()
29 if(i /= 42) call abort()