diff --git a/num/public/accurate_sum_auto_diff_star_order1.f90 b/num/public/accurate_sum_auto_diff_star_order1.f90
index 7295fdd11..a91afd1f7 100644
--- a/num/public/accurate_sum_auto_diff_star_order1.f90
+++ b/num/public/accurate_sum_auto_diff_star_order1.f90
@@ -135,8 +135,8 @@ type(accurate_auto_diff_real_star_order1) function mult_acc_rdp(op1, op2) result
       type(accurate_auto_diff_real_star_order1), intent(in) :: op1
       real(dp), intent(in) :: op2
 
-      ret%sum = op1%sum*op1
-      ret%compensator = op1%compensator*op1
+      ret%sum = op1%sum*op2
+      ret%compensator = op1%compensator*op2
 
    end function mult_acc_rdp