diff --git a/src/forwarddif_dual.f90 b/src/forwarddif_dual.f90
index a55a094..aa93d98 100644
--- a/src/forwarddif_dual.f90
+++ b/src/forwarddif_dual.f90
@@ -280,7 +280,7 @@ elemental function add_dr(u, r) result(res)
     type(dual), intent(in) :: u
     real(wp), intent(in) :: r
     type(dual) :: res
-    res%val = u%val + r
+    res%val = r + u%val
     res%der = u%der
   end function
 
@@ -296,7 +296,8 @@ elemental function add_rd(r, v) result(res)
     real(wp), intent(in) :: r
     type(dual), intent(in) :: v
     type(dual) :: res
-    res = v + r
+    res%val = r + v%val
+    res%der = v%der
   end function
 
   !~~~ subtraction ~~~!