Add testing to non-SP pointers

Author: sethrj

Examples/test-suite/fortran/fortran_ownership_runme.F90

@@ -56,6 +56,11 @@ subroutine test_standard
   ASSERT(.not. btest(b%swigdata%cmemflags, swig_cmem_rvalue_bit))
   ASSERT(foo_counter == 3)
 
+  ! Return null
+  call b%release()
+  b = get_null()
+  ASSERT(.not. c_associated(b%swigdata%cptr))
+
   ! Capture from function
   b = make_foo(6)
   ASSERT(btest(b%swigdata%cmemflags, swig_cmem_own_bit))

Examples/test-suite/fortran_ownership.i

@@ -43,6 +43,7 @@ Foo& reference(Foo& other) { return other; }
 const Foo& const_reference(const Foo& other) { return other; }
 Foo make_foo(int val) { return Foo(val); }
 Foo make_foo_subroutine(int val) { return Foo(val); }
+Foo* get_null() { return NULL; }
 
 int get_value(const Foo& other) { return other.val; }
 int get_value_copy(Foo other) { return other.val; }