Get one test passing

Author: znicholls

src/example_fgen_basic/get_square_root_wrapper.f90

@@ -42,6 +42,11 @@ function get_square_root(inv) result(res_instance_index)
         ! ready for its attributes to be retrieved from Python.
         call result_dp_manager_set_instance_index_to(res_instance_index, res)
 
+        print *, "res_instance_index"
+        print *, res_instance_index
+        print *, "res % data_v"
+        print *, res % data_v
+
     end function get_square_root
 
 end module m_get_square_root_w

src/example_fgen_basic/result/result_dp_wrapper.f90

@@ -1,7 +1,6 @@
 !> Wrapper for interfacing `m_result_dp` with Python
 module m_result_dp_w
 
-    use kind_parameters, only: dp
     use m_error_v, only: ErrorV
     use m_result_dp, only: ResultDP
 
@@ -29,6 +28,10 @@ module m_result_dp_w
     subroutine build_instance(data_v, error_v_instance_index, instance_index)
         !! Build an instance
 
+        ! Annoying that this has to be injected everywhere,
+        ! but ok it can be automated.
+        integer, parameter :: dp = selected_real_kind(15, 307)
+
         real(kind=dp), intent(in), optional :: data_v
         !! Data
 
@@ -124,15 +127,23 @@ subroutine get_data_v( &
         data_v &
         )
 
+        ! Annoying that this has to be injected everywhere,
+        ! but ok it can be automated.
+        integer, parameter :: dp = selected_real_kind(15, 307)
+
         integer, intent(in) :: instance_index
 
         real(kind=dp), intent(out) :: data_v
 
         type(ResultDP)  :: instance
 
+        print *, "instance_index"
+        print *, instance_index
         instance = result_dp_manager_get_instance(instance_index)
 
         data_v = instance % data_v
+        print *, "instance % data_v"
+        print *, instance % data_v
 
     end subroutine get_data_v