int cholesky_unpivoted(double *_rr, double _tol, int _n) {
  double akk;
  int k;
  akk = 0;
  for (k = 0; k < _n; k++)
    if (_rr[(((((_n) * ((_n) + 1) >> 1)) -
              ((((_n) - (k)) * (((_n) - (k)) + 1) >> 1))) +
             (k) - (k))] > akk)
      akk = _rr[(((((_n) * ((_n) + 1) >> 1)) -
                  ((((_n) - (k)) * (((_n) - (k)) + 1) >> 1))) +
                 (k) - (k))];
  _tol *= 40 * _n * (_n + 1) * akk;
  for (k = 0; k < _n && _rr[(((((_n) * ((_n) + 1) >> 1)) -
                              ((((_n) - (k)) * (((_n) - (k)) + 1) >> 1))) +
                             (k) - (k))] > _tol;
       k++) {
    ch_update(_rr,
              sqrt(_rr[(((((_n) * ((_n) + 1) >> 1)) -
                         ((((_n) - (k)) * (((_n) - (k)) + 1) >> 1))) +
                        (k) - (k))]),
              k, _n);
  }
  return k;
}


x86 assembly (clang, -O0):
<cholesky_unpivoted>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11e2 <cholesky_unpivoted+0xc2>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
sar    $0x1,%ecx
mov    -0x14(%rbp),%edx
sub    -0x24(%rbp),%edx
mov    -0x14(%rbp),%esi
sub    -0x24(%rbp),%esi
add    $0x1,%esi
imul   %esi,%edx
sar    $0x1,%edx
sub    %edx,%ecx
add    -0x24(%rbp),%ecx
sub    -0x24(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x20(%rbp),%xmm0
jbe    11cf <cholesky_unpivoted+0xaf>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
sar    $0x1,%ecx
mov    -0x14(%rbp),%edx
sub    -0x24(%rbp),%edx
mov    -0x14(%rbp),%esi
sub    -0x24(%rbp),%esi
add    $0x1,%esi
imul   %esi,%edx
sar    $0x1,%edx
sub    %edx,%ecx
add    -0x24(%rbp),%ecx
sub    -0x24(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
jmp    11d4 <cholesky_unpivoted+0xb4>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1143 <cholesky_unpivoted+0x23>
imul   $0x28,-0x14(%rbp),%eax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
cvtsi2sd %eax,%xmm0
mulsd  -0x20(%rbp),%xmm0
mulsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x10(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%ecx
xor    %eax,%eax
cmp    -0x14(%rbp),%ecx
mov    %al,-0x25(%rbp)
jge    125d <cholesky_unpivoted+0x13d>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
sar    $0x1,%ecx
mov    -0x14(%rbp),%edx
sub    -0x24(%rbp),%edx
mov    -0x14(%rbp),%esi
sub    -0x24(%rbp),%esi
add    $0x1,%esi
imul   %esi,%edx
sar    $0x1,%edx
sub    %edx,%ecx
add    -0x24(%rbp),%ecx
sub    -0x24(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x10(%rbp),%xmm0
seta   %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    126d <cholesky_unpivoted+0x14d>
jmp    12d1 <cholesky_unpivoted+0x1b1>
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
sar    $0x1,%ecx
mov    -0x14(%rbp),%edx
sub    -0x24(%rbp),%edx
mov    -0x14(%rbp),%esi
sub    -0x24(%rbp),%esi
add    $0x1,%esi
imul   %esi,%edx
sar    $0x1,%edx
sub    %edx,%ecx
add    -0x24(%rbp),%ecx
sub    -0x24(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
call   1040 <sqrt@plt>
mov    -0x30(%rbp),%rdi
mov    -0x24(%rbp),%esi
mov    -0x14(%rbp),%edx
mov    $0x1,%al
call   1030 <ch_update@plt>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1209 <cholesky_unpivoted+0xe9>
mov    -0x24(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cholesky_unpivoted>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %esi,%esi
jle    1263 <cholesky_unpivoted+0x143>
mov    %esi,%r14d
mov    %rdi,%r13
lea    0x1(%r14),%eax
imul   %esi,%eax
mov    %eax,%r15d
sar    %r15d
cmp    $0x1,%esi
jne    1153 <cholesky_unpivoted+0x33>
xorpd  %xmm2,%xmm2
xor    %ecx,%ecx
jmp    11b0 <cholesky_unpivoted+0x90>
mov    %r14d,%edx
and    $0xfffffffe,%edx
xorpd  %xmm2,%xmm2
xor    %ecx,%ecx
mov    %r14d,%esi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    0x1(%rsi),%edi
imul   %esi,%edi
sar    %edi
mov    %r15d,%ebp
sub    %edi,%ebp
movslq %ebp,%rdi
movsd  0x0(%r13,%rdi,8),%xmm1
maxsd  %xmm2,%xmm1
lea    -0x1(%rsi),%edi
imul   %esi,%edi
sar    %edi
mov    %r15d,%ebp
sub    %edi,%ebp
movslq %ebp,%rdi
movsd  0x0(%r13,%rdi,8),%xmm2
maxsd  %xmm1,%xmm2
add    $0x2,%ecx
add    $0xfffffffe,%esi
cmp    %ecx,%edx
jne    1170 <cholesky_unpivoted+0x50>
test   $0x1,%r14b
je     11da <cholesky_unpivoted+0xba>
mov    %r14d,%edx
sub    %ecx,%edx
lea    0x1(%rdx),%ecx
imul   %edx,%ecx
sar    %ecx
mov    %r15d,%edx
sub    %ecx,%edx
movslq %edx,%rcx
movsd  0x0(%r13,%rcx,8),%xmm1
maxsd  %xmm2,%xmm1
movapd %xmm1,%xmm2
test   %r14d,%r14d
jle    1263 <cholesky_unpivoted+0x143>
shl    $0x3,%eax
lea    (%rax,%rax,4),%eax
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
mulsd  %xmm1,%xmm2
mulsd  %xmm0,%xmm2
mov    %r14d,%r12d
neg    %r12d
xor    %ebp,%ebp
mov    %r14d,%ebx
movsd  %xmm2,(%rsp)
jmp    1236 <cholesky_unpivoted+0x116>
nopw   0x0(%rax,%rax,1)
call   1040 <sqrt@plt>
mov    %r13,%rdi
mov    %ebp,%esi
mov    %r14d,%edx
mov    $0x1,%al
call   1030 <ch_update@plt>
add    $0x1,%ebp
add    $0xffffffff,%ebx
mov    %r12d,%eax
add    %ebp,%eax
movsd  (%rsp),%xmm2
je     1267 <cholesky_unpivoted+0x147>
lea    0x1(%rbx),%eax
imul   %ebx,%eax
sar    %eax
mov    %r15d,%ecx
sub    %eax,%ecx
movslq %ecx,%rax
movsd  0x0(%r13,%rax,8),%xmm0
ucomisd %xmm2,%xmm0
jbe    126a <cholesky_unpivoted+0x14a>
ucomisd 0xda5(%rip),%xmm0
jb     1210 <cholesky_unpivoted+0xf0>
sqrtsd %xmm0,%xmm0
jmp    1215 <cholesky_unpivoted+0xf5>
xor    %ebp,%ebp
jmp    126a <cholesky_unpivoted+0x14a>
mov    %r14d,%ebp
mov    %ebp,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @cholesky_unpivoted(double* %0, double %1, i32 %2) {
%4 = alloca double*
%5 = alloca double
%6 = alloca i32
%7 = alloca double
%8 = alloca i32
store double* %0, double** %4
store double %1, double* %5
store i32 %2, i32* %6
store double 0.000000e+00, double* %7
store i32 0, i32* %8
br label %9
9: ; preds = %64, %3
%10 = load i32, i32* %8
%11 = load i32, i32* %6
%12 = icmp slt i32 %10, %11
br i1 %12, label %13, label %67
13: ; preds = %9
%14 = load double*, double** %4
%15 = load i32, i32* %6
%16 = load i32, i32* %6
%17 = add nsw i32 %16, 1
%18 = mul nsw i32 %15, %17
%19 = ashr i32 %18, 1
%20 = load i32, i32* %6
%21 = load i32, i32* %8
%22 = sub nsw i32 %20, %21
%23 = load i32, i32* %6
%24 = load i32, i32* %8
%25 = sub nsw i32 %23, %24
%26 = add nsw i32 %25, 1
%27 = mul nsw i32 %22, %26
%28 = ashr i32 %27, 1
%29 = sub nsw i32 %19, %28
%30 = load i32, i32* %8
%31 = add nsw i32 %29, %30
%32 = load i32, i32* %8
%33 = sub nsw i32 %31, %32
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %14, i64 %34
%36 = load double, double* %35
%37 = load double, double* %7
%38 = fcmp ogt double %36, %37
br i1 %38, label %39, label %63
39: ; preds = %13
%40 = load double*, double** %4
%41 = load i32, i32* %6
%42 = load i32, i32* %6
%43 = add nsw i32 %42, 1
%44 = mul nsw i32 %41, %43
%45 = ashr i32 %44, 1
%46 = load i32, i32* %6
%47 = load i32, i32* %8
%48 = sub nsw i32 %46, %47
%49 = load i32, i32* %6
%50 = load i32, i32* %8
%51 = sub nsw i32 %49, %50
%52 = add nsw i32 %51, 1
%53 = mul nsw i32 %48, %52
%54 = ashr i32 %53, 1
%55 = sub nsw i32 %45, %54
%56 = load i32, i32* %8
%57 = add nsw i32 %55, %56
%58 = load i32, i32* %8
%59 = sub nsw i32 %57, %58
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double, double* %40, i64 %60
%62 = load double, double* %61
store double %62, double* %7
br label %63
63: ; preds = %39, %13
br label %64
64: ; preds = %63
%65 = load i32, i32* %8
%66 = add nsw i32 %65, 1
store i32 %66, i32* %8
br label %9
67: ; preds = %9
%68 = load i32, i32* %6
%69 = mul nsw i32 40, %68
%70 = load i32, i32* %6
%71 = add nsw i32 %70, 1
%72 = mul nsw i32 %69, %71
%73 = sitofp i32 %72 to double
%74 = load double, double* %7
%75 = fmul double %73, %74
%76 = load double, double* %5
%77 = fmul double %76, %75
store double %77, double* %5
store i32 0, i32* %8
br label %78
78: ; preds = %139, %67
%79 = load i32, i32* %8
%80 = load i32, i32* %6
%81 = icmp slt i32 %79, %80
br i1 %81, label %82, label %108
82: ; preds = %78
%83 = load double*, double** %4
%84 = load i32, i32* %6
%85 = load i32, i32* %6
%86 = add nsw i32 %85, 1
%87 = mul nsw i32 %84, %86
%88 = ashr i32 %87, 1
%89 = load i32, i32* %6
%90 = load i32, i32* %8
%91 = sub nsw i32 %89, %90
%92 = load i32, i32* %6
%93 = load i32, i32* %8
%94 = sub nsw i32 %92, %93
%95 = add nsw i32 %94, 1
%96 = mul nsw i32 %91, %95
%97 = ashr i32 %96, 1
%98 = sub nsw i32 %88, %97
%99 = load i32, i32* %8
%100 = add nsw i32 %98, %99
%101 = load i32, i32* %8
%102 = sub nsw i32 %100, %101
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds double, double* %83, i64 %103
%105 = load double, double* %104
%106 = load double, double* %5
%107 = fcmp ogt double %105, %106
br label %108
108: ; preds = %82, %78
%109 = phi i1 [ false, %78 ], [ %107, %82 ]
br i1 %109, label %110, label %142
110: ; preds = %108
%111 = load double*, double** %4
%112 = load double*, double** %4
%113 = load i32, i32* %6
%114 = load i32, i32* %6
%115 = add nsw i32 %114, 1
%116 = mul nsw i32 %113, %115
%117 = ashr i32 %116, 1
%118 = load i32, i32* %6
%119 = load i32, i32* %8
%120 = sub nsw i32 %118, %119
%121 = load i32, i32* %6
%122 = load i32, i32* %8
%123 = sub nsw i32 %121, %122
%124 = add nsw i32 %123, 1
%125 = mul nsw i32 %120, %124
%126 = ashr i32 %125, 1
%127 = sub nsw i32 %117, %126
%128 = load i32, i32* %8
%129 = add nsw i32 %127, %128
%130 = load i32, i32* %8
%131 = sub nsw i32 %129, %130
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds double, double* %112, i64 %132
%134 = load double, double* %133
%135 = call double @sqrt(double %134)
%136 = load i32, i32* %8
%137 = load i32, i32* %6
%138 = call i32 (double*, double, i32, i32, ...) bitcast (i32 (...)* @ch_update to i32 (double*, double, i32, i32, ...)*)(double* %111, double %135, i32 %136, i32 %137)
br label %139
139: ; preds = %110
%140 = load i32, i32* %8
%141 = add nsw i32 %140, 1
store i32 %141, i32* %8
br label %78
142: ; preds = %108
%143 = load i32, i32* %8
ret i32 %143
}

LLVM IR (-O2):
define i32 @cholesky_unpivoted(double* %0, double %1, i32 %2) {
%4 = icmp sgt i32 %2, 0
br i1 %4, label %5, label %79
5: ; preds = %3
%6 = add nuw nsw i32 %2, 1
%7 = mul i32 %6, %2
%8 = ashr i32 %7, 1
%9 = and i32 %2, 1
%10 = icmp eq i32 %2, 1
br i1 %10, label %41, label %11
11: ; preds = %5
%12 = and i32 %2, -2
br label %13
13: ; preds = %13, %11
%14 = phi i32 [ 0, %11 ], [ %38, %13 ]
%15 = phi double [ 0.000000e+00, %11 ], [ %37, %13 ]
%16 = phi i32 [ 0, %11 ], [ %39, %13 ]
%17 = sub nsw i32 %2, %14
%18 = add nsw i32 %17, 1
%19 = mul nsw i32 %18, %17
%20 = ashr i32 %19, 1
%21 = sub nsw i32 %8, %20
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds double, double* %0, i64 %22
%24 = load double, double* %23
%25 = fcmp ogt double %24, %15
%26 = select i1 %25, double %24, double %15
%27 = xor i32 %14, -1
%28 = add i32 %27, %2
%29 = sub i32 %2, %14
%30 = mul nsw i32 %29, %28
%31 = ashr i32 %30, 1
%32 = sub nsw i32 %8, %31
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %0, i64 %33
%35 = load double, double* %34
%36 = fcmp ogt double %35, %26
%37 = select i1 %36, double %35, double %26
%38 = add nuw nsw i32 %14, 2
%39 = add i32 %16, 2
%40 = icmp eq i32 %39, %12
br i1 %40, label %41, label %13
41: ; preds = %13, %5
%42 = phi double [ undef, %5 ], [ %37, %13 ]
%43 = phi i32 [ 0, %5 ], [ %38, %13 ]
%44 = phi double [ 0.000000e+00, %5 ], [ %37, %13 ]
%45 = icmp eq i32 %9, 0
br i1 %45, label %57, label %46
46: ; preds = %41
%47 = sub nsw i32 %2, %43
%48 = add nsw i32 %47, 1
%49 = mul nsw i32 %48, %47
%50 = ashr i32 %49, 1
%51 = sub nsw i32 %8, %50
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds double, double* %0, i64 %52
%54 = load double, double* %53
%55 = fcmp ogt double %54, %44
%56 = select i1 %55, double %54, double %44
br label %57
57: ; preds = %41, %46
%58 = phi double [ %42, %41 ], [ %56, %46 ]
%59 = mul i32 %7, 40
%60 = sitofp i32 %59 to double
%61 = fmul double %58, %60
%62 = fmul double %61, %1
br i1 %4, label %63, label %79
63: ; preds = %57, %74
%64 = phi i32 [ %77, %74 ], [ 0, %57 ]
%65 = sub nsw i32 %2, %64
%66 = add nsw i32 %65, 1
%67 = mul nsw i32 %66, %65
%68 = ashr i32 %67, 1
%69 = sub nsw i32 %8, %68
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double, double* %0, i64 %70
%72 = load double, double* %71
%73 = fcmp ogt double %72, %62
br i1 %73, label %74, label %79
74: ; preds = %63
%75 = tail call double @sqrt(double %72)
%76 = tail call i32 (double*, double, i32, i32, ...) bitcast (i32 (...)* @ch_update to i32 (double*, double, i32, i32, ...)*)(double* %0, double %75, i32 %64, i32 %2)
%77 = add nuw nsw i32 %64, 1
%78 = icmp eq i32 %77, %2
br i1 %78, label %79, label %63
79: ; preds = %63, %74, %3, %57
%80 = phi i32 [ 0, %57 ], [ 0, %3 ], [ %2, %74 ], [ %64, %63 ]
ret i32 %80
}