double calR(double credit, double an_years, double rep_rate, int years) {
  int sc = (int)(100. * credit);
  int rc, s, i;
  int an = (int)(10. * an_years);
  int rep = (int)(10. * rep_rate);
  for (i = 1; i <= years; i++) {
    s = sc * (an + rep) / 1000;
    rc = sc - (s - sc * an / 1000);
    sc = rc;
  }
  return rc / 100.;
}


x86 assembly (clang, -O0):
<calR>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
movsd  %xmm2,-0x18(%rbp)
mov    %edi,-0x1c(%rbp)
movsd  0xeea(%rip),%xmm0
mulsd  -0x8(%rbp),%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x20(%rbp)
movsd  0xece(%rip),%xmm0
mulsd  -0x10(%rbp),%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x30(%rbp)
movsd  0xeba(%rip),%xmm0
mulsd  -0x18(%rbp),%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x34(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     11b4 <calR+0xb4>
mov    -0x20(%rbp),%eax
mov    -0x30(%rbp),%ecx
add    -0x34(%rbp),%ecx
imul   %ecx,%eax
mov    $0x3e8,%ecx
cltd
idiv   %ecx
mov    %eax,-0x28(%rbp)
mov    -0x20(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x28(%rbp),%ecx
mov    -0x20(%rbp),%eax
imul   -0x30(%rbp),%eax
mov    $0x3e8,%esi
cltd
idiv   %esi
mov    %eax,%edx
mov    -0x38(%rbp),%eax
sub    %edx,%ecx
sub    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1159 <calR+0x59>
cvtsi2sdl -0x24(%rbp),%xmm0
movsd  0xe47(%rip),%xmm1
divsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<calR>:
test   %edi,%edi
jle    120d <calR+0x10d>
mulsd  0xef0(%rip),%xmm1
cvttsd2si %xmm1,%r8d
mulsd  0xee3(%rip),%xmm2
cvttsd2si %xmm2,%r9d
mulsd  0xede(%rip),%xmm0
cvttsd2si %xmm0,%edx
add    %r8d,%r9d
cmp    $0x1,%edi
je     11bb <calR+0xbb>
mov    %edi,%esi
and    $0xfffffffe,%esi
nop
mov    %edx,%eax
imul   %r9d,%eax
cltq
imul   $0xffffffffef9db22d,%rax,%rax
mov    %rax,%rcx
shr    $0x3f,%rcx
sar    $0x26,%rax
add    %ecx,%eax
add    %edx,%eax
imul   %r8d,%edx
movslq %edx,%rcx
imul   $0x10624dd3,%rcx,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x26,%rcx
add    %edx,%ecx
add    %eax,%ecx
mov    %ecx,%eax
imul   %r9d,%eax
cltq
imul   $0xffffffffef9db22d,%rax,%rax
mov    %rax,%rdx
shr    $0x3f,%rdx
sar    $0x26,%rax
add    %edx,%eax
add    %ecx,%eax
imul   %r8d,%ecx
movslq %ecx,%rcx
imul   $0x10624dd3,%rcx,%rdx
mov    %rdx,%rcx
shr    $0x3f,%rcx
sar    $0x26,%rdx
add    %ecx,%edx
add    %eax,%edx
add    $0xfffffffe,%esi
jne    1140 <calR+0x40>
test   $0x1,%dil
je     11fd <calR+0xfd>
imul   %edx,%r9d
movslq %r9d,%rax
imul   $0xffffffffef9db22d,%rax,%rax
mov    %rax,%rcx
shr    $0x3f,%rcx
sar    $0x26,%rax
add    %ecx,%eax
imul   %edx,%r8d
movslq %r8d,%rcx
imul   $0x10624dd3,%rcx,%rcx
mov    %rcx,%rsi
shr    $0x3f,%rsi
sar    $0x26,%rcx
add    %esi,%ecx
add    %edx,%eax
add    %ecx,%eax
mov    %eax,%edx
xorps  %xmm0,%xmm0
cvtsi2sd %edx,%xmm0
divsd  0xdfc(%rip),%xmm0
ret
xorpd  %xmm0,%xmm0
divsd  0xdef(%rip),%xmm0
ret

LLVM IR (-O0):
define double @calR(double %0, double %1, double %2, i32 %3) {
%5 = alloca double
%6 = alloca double
%7 = alloca double
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
store double %0, double* %5
store double %1, double* %6
store double %2, double* %7
store i32 %3, i32* %8
%15 = load double, double* %5
%16 = fmul double 1.000000e+02, %15
%17 = fptosi double %16 to i32
store i32 %17, i32* %9
%18 = load double, double* %6
%19 = fmul double 1.000000e+01, %18
%20 = fptosi double %19 to i32
store i32 %20, i32* %13
%21 = load double, double* %7
%22 = fmul double 1.000000e+01, %21
%23 = fptosi double %22 to i32
store i32 %23, i32* %14
store i32 1, i32* %12
br label %24
24: ; preds = %44, %4
%25 = load i32, i32* %12
%26 = load i32, i32* %8
%27 = icmp sle i32 %25, %26
br i1 %27, label %28, label %47
28: ; preds = %24
%29 = load i32, i32* %9
%30 = load i32, i32* %13
%31 = load i32, i32* %14
%32 = add nsw i32 %30, %31
%33 = mul nsw i32 %29, %32
%34 = sdiv i32 %33, 1000
store i32 %34, i32* %11
%35 = load i32, i32* %9
%36 = load i32, i32* %11
%37 = load i32, i32* %9
%38 = load i32, i32* %13
%39 = mul nsw i32 %37, %38
%40 = sdiv i32 %39, 1000
%41 = sub nsw i32 %36, %40
%42 = sub nsw i32 %35, %41
store i32 %42, i32* %10
%43 = load i32, i32* %10
store i32 %43, i32* %9
br label %44
44: ; preds = %28
%45 = load i32, i32* %12
%46 = add nsw i32 %45, 1
store i32 %46, i32* %12
br label %24
47: ; preds = %24
%48 = load i32, i32* %10
%49 = sitofp i32 %48 to double
%50 = fdiv double %49, 1.000000e+02
ret double %50
}

LLVM IR (-O2):
define double @calR(double %0, double %1, double %2, i32 %3) {
%5 = fmul double %1, 1.000000e+01
%6 = fptosi double %5 to i32
%7 = icmp slt i32 %3, 1
br i1 %7, label %49, label %8
8: ; preds = %4
%9 = fmul double %2, 1.000000e+01
%10 = fptosi double %9 to i32
%11 = fmul double %0, 1.000000e+02
%12 = fptosi double %11 to i32
%13 = add nsw i32 %10, %6
%14 = and i32 %3, 1
%15 = icmp eq i32 %3, 1
br i1 %15, label %35, label %16
16: ; preds = %8
%17 = and i32 %3, -2
br label %18
18: ; preds = %18, %16
%19 = phi i32 [ %12, %16 ], [ %32, %18 ]
%20 = phi i32 [ 0, %16 ], [ %33, %18 ]
%21 = mul nsw i32 %19, %13
%22 = sdiv i32 %21, -1000
%23 = mul nsw i32 %19, %6
%24 = sdiv i32 %23, 1000
%25 = add i32 %22, %19
%26 = add i32 %25, %24
%27 = mul nsw i32 %26, %13
%28 = sdiv i32 %27, -1000
%29 = mul nsw i32 %26, %6
%30 = sdiv i32 %29, 1000
%31 = add i32 %28, %26
%32 = add i32 %31, %30
%33 = add i32 %20, 2
%34 = icmp eq i32 %33, %17
br i1 %34, label %35, label %18
35: ; preds = %18, %8
%36 = phi i32 [ undef, %8 ], [ %32, %18 ]
%37 = phi i32 [ %12, %8 ], [ %32, %18 ]
%38 = icmp eq i32 %14, 0
br i1 %38, label %46, label %39
39: ; preds = %35
%40 = mul nsw i32 %37, %13
%41 = sdiv i32 %40, -1000
%42 = mul nsw i32 %37, %6
%43 = sdiv i32 %42, 1000
%44 = add i32 %41, %37
%45 = add i32 %44, %43
br label %46
46: ; preds = %35, %39
%47 = phi i32 [ %36, %35 ], [ %45, %39 ]
%48 = sitofp i32 %47 to double
br label %49
49: ; preds = %46, %4
%50 = phi double [ %48, %46 ], [ 0.000000e+00, %4 ]
%51 = fdiv double %50, 1.000000e+02
ret double %51
}