2 ! Test functions returning array pointers
4 integer, pointer, dimension(:) :: a
5 integer, target, dimension(2) :: b
6 integer, pointer, dimension (:) :: p
11 if (.not. associated (a, p)) call abort
14 integer, pointer, dimension(:) :: p
16 function foo() result(r)
17 integer, pointer, dimension(:) :: r