18 subroutine test_scalar(cptr, fptr)  argument
20   real, pointer :: fptr  local
47 subroutine test_array(cptr, fptr)  argument
49   real, pointer :: fptr(:,:)  local
68 subroutine test_char(cptr, fptr)  argument
70   character(10), pointer :: fptr  local
102 subroutine test_chararray(cptr, fptr, n)  argument
104   character(n), pointer :: fptr(:,:)  local
112 subroutine dynamic_shape_size(cptr, fptr, shape)  argument
115   real, pointer :: fptr(:, :)  local
130 subroutine dynamic_shape_size_2(cptr, fptr, shape, n)  argument
133   real, pointer :: fptr(:, :)  local