class(results) fun

Author: mzecc

src/example_fgen_basic/result/result.f90

@@ -4,6 +4,8 @@
 !> https://github.com/samharrison7/fortran-error-handler
 module m_result
 
+    use m_error_v, only: ErrorV
+
     implicit none
     private
 
@@ -75,19 +77,21 @@ function finalise(self) result(res)
         class(Result), intent(inout) :: self
         ! Hopefully can leave without docstring (like Python)
 
-        type(ResultNone) :: res
+!        type(ResultNone) :: res
+
+        res = Result()
 
-        if (allocated(self % data_v) .and. allocated(self % error)) then
+        if (allocated(self % data_v) .and. allocated(self % error_v)) then
             deallocate(self % data_v)
-            deallocate(self % error)
+            deallocate(self % error_v)
             call res % build(message="Both data and error were allocated")
 
         elseif (allocated(self % data_v)) then
             deallocate(self % data_v)
             ! No error - no need to call res % build
 
-        elseif (allocated(self % error)) then
-            deallocate(self % error)
+        elseif (allocated(self % error_v)) then
+            deallocate(self % error_v)
             ! No error - no need to call res % build
 
         else

src/example_fgen_basic/result/result_int.f90

@@ -5,6 +5,7 @@
 module m_result_int
 
     use m_error_v, only: ErrorV
+    use m_result, only: Result
 
     implicit none
     private
@@ -42,12 +43,14 @@ subroutine build(self, res, data_v, error_v)
         type(ResultInteger), intent(inout) :: self
         ! Hopefully can leave without docstring (like Python)
 
-        type(ResultNone), intent(inout) :: res
+        !type(ResultNone), intent(inout) :: res
         !! Result
 
         integer, optional, intent(in) :: data_v
         !! Data
 
+        res = Result()
+
         class(ErrorV), optional, intent(in) :: error_v
         !! Error message