I may be mistaken, but the expression size(test%fun_ptr(n,x)) is unikely to succeed: you ask first to evaluate the function being pointed to by fun_ptr and then get the size of the result. So far so good, but fun_ptr is not pointing to anything, unless I am overlooking something in the code.
