int cholesky_tri(const double *A, int n, double *L) {
  int i, j, k;
  double s;
  for (i = 0; i < n; i++)
    for (j = 0; j < (i + 1); j++) {
      s = 0;
      for (k = 0; k < j; k++)
        s +=
            L[(((i) * ((i) + 1)) / 2 + (k))] * L[(((j) * ((j) + 1)) / 2 + (k))];
      s = A[(((i) * ((i) + 1)) / 2 + (j))] - s;
      if (i == j) {
        if (s <= 0.0)
          return 0;
        L[(((i) * ((i) + 1)) / 2 + (j))] = sqrt(s);
      } else
        L[(((i) * ((i) + 1)) / 2 + (j))] =
            1.0 / L[(((j) * ((j) + 1)) / 2 + (j))] * s;
    }
  return 1;
}


x86 assembly (clang, -O0):
<cholesky_tri>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1309 <cholesky_tri+0x1f9>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jge    12f6 <cholesky_tri+0x1e6>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    11e3 <cholesky_tri+0xd3>
mov    -0x20(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x48(%rbp),%rax
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x40(%rbp),%rax
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    115d <cholesky_tri+0x4d>
mov    -0x10(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x50(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jne    127c <cholesky_tri+0x16c>
xorps  %xmm0,%xmm0
ucomisd -0x38(%rbp),%xmm0
jb     1240 <cholesky_tri+0x130>
movl   $0x0,-0x4(%rbp)
jmp    1310 <cholesky_tri+0x200>
movsd  -0x38(%rbp),%xmm0
call   1030 <sqrt@plt>
mov    -0x20(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x58(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12e3 <cholesky_tri+0x1d3>
mov    -0x20(%rbp),%rax
mov    %rax,-0x68(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x68(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  0xd54(%rip),%xmm0
divsd  (%rax,%rcx,8),%xmm0
mulsd  -0x38(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x60(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12e8 <cholesky_tri+0x1d8>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    113d <cholesky_tri+0x2d>
jmp    12fb <cholesky_tri+0x1eb>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112a <cholesky_tri+0x1a>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cholesky_tri>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    $0x1,%eax
test   %esi,%esi
jle    1301 <cholesky_tri+0x1f1>
mov    %rdx,%rbx
mov    %esi,%eax
mov    %rax,(%rsp)
lea    0x8(%rdx),%r8
mov    $0x1,%r9d
mov    $0x2,%eax
xor    %ecx,%ecx
xorpd  %xmm3,%xmm3
movsd  0xeaf(%rip),%xmm4
xor    %esi,%esi
mov    %rdi,0x28(%rsp)
mov    %r8,0x20(%rsp)
jmp    1184 <cholesky_tri+0x74>
nop
add    $0x1,%r9
mov    0x18(%rsp),%rax
mov    0x10(%rsp),%rcx
add    %rax,%rcx
add    $0x2,%rax
mov    0x8(%rsp),%rsi
cmp    (%rsp),%rsi
je     1310 <cholesky_tri+0x200>
mov    %rax,0x18(%rsp)
mov    %rsi,%r10
mov    %rcx,0x10(%rsp)
mov    %ecx,%eax
and    $0xfffffffe,%eax
lea    (%r8,%rax,4),%r14
lea    0x1(%rsi),%rax
mov    %rax,0x8(%rsp)
mov    %eax,%r11d
imul   %r10d,%r11d
shr    %r11d
xor    %r13d,%r13d
mov    $0x2,%ebp
xor    %r15d,%r15d
mov    %r9,0x40(%rsp)
mov    %rsi,0x38(%rsp)
mov    %r11,0x30(%rsp)
jmp    1204 <cholesky_tri+0xf4>
nopl   0x0(%rax)
lea    0x1(%r15),%eax
imul   %r15d,%eax
shr    %eax
add    %r15,%rax
movapd %xmm4,%xmm1
divsd  (%rbx,%rax,8),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,(%rbx,%r12,8)
add    $0x1,%r15
add    %rbp,%r13
add    $0x2,%rbp
cmp    %r9,%r15
je     1160 <cholesky_tri+0x50>
test   %r15,%r15
je     1220 <cholesky_tri+0x110>
cmp    $0x1,%r15
jne    1230 <cholesky_tri+0x120>
xorpd  %xmm1,%xmm1
xor    %eax,%eax
jmp    127d <cholesky_tri+0x16d>
nopw   0x0(%rax,%rax,1)
xorpd  %xmm1,%xmm1
jmp    12a2 <cholesky_tri+0x192>
cs nopw 0x0(%rax,%rax,1)
mov    %r13d,%eax
and    $0xfffffffe,%eax
lea    (%r8,%rax,4),%rcx
mov    %r15,%rsi
and    $0xfffffffffffffffe,%rsi
xorpd  %xmm0,%xmm0
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movsd  -0x8(%r14,%rax,8),%xmm2
movsd  (%r14,%rax,8),%xmm1
mulsd  -0x8(%rcx,%rax,8),%xmm2
mulsd  (%rcx,%rax,8),%xmm1
addsd  %xmm0,%xmm2
addsd  %xmm2,%xmm1
add    $0x2,%rax
movapd %xmm1,%xmm0
cmp    %rax,%rsi
jne    1250 <cholesky_tri+0x140>
test   $0x1,%r15b
je     12a2 <cholesky_tri+0x192>
lea    0x1(%r15),%ecx
imul   %r15d,%ecx
shr    %ecx
lea    (%rax,%r11,1),%rsi
movsd  (%rbx,%rsi,8),%xmm0
add    %rax,%rcx
mulsd  (%rbx,%rcx,8),%xmm0
addsd  %xmm0,%xmm1
lea    (%r15,%r11,1),%r12
movsd  (%rdi,%r12,8),%xmm0
subsd  %xmm1,%xmm0
cmp    %r15,%r10
jne    11d0 <cholesky_tri+0xc0>
ucomisd %xmm0,%xmm3
jae    12ff <cholesky_tri+0x1ef>
ucomisd %xmm3,%xmm0
jb     12d0 <cholesky_tri+0x1c0>
sqrtsd %xmm0,%xmm0
jmp    11ea <cholesky_tri+0xda>
xchg   %ax,%ax
call   1030 <sqrt@plt>
mov    0x30(%rsp),%r11
mov    0x38(%rsp),%r10
movsd  0xd19(%rip),%xmm4
xorpd  %xmm3,%xmm3
mov    0x40(%rsp),%r9
mov    0x20(%rsp),%r8
mov    0x28(%rsp),%rdi
jmp    11ea <cholesky_tri+0xda>
xor    %eax,%eax
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    $0x1,%eax
jmp    1301 <cholesky_tri+0x1f1>

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

LLVM IR (-O2):
define i32 @cholesky_tri(double* nocapture %0, i32 %1, double* nocapture %2) {
%4 = icmp sgt i32 %1, 0
br i1 %4, label %5, label %90
5: ; preds = %3
%6 = zext i32 %1 to i64
br label %10
7: ; preds = %85
%8 = add nuw nsw i64 %12, 1
%9 = icmp eq i64 %13, %6
br i1 %9, label %90, label %10
10: ; preds = %5, %7
%11 = phi i64 [ 0, %5 ], [ %13, %7 ]
%12 = phi i64 [ 1, %5 ], [ %8, %7 ]
%13 = add nuw nsw i64 %11, 1
%14 = mul i64 %13, %11
%15 = lshr i64 %14, 1
%16 = and i64 %15, 2147483647
br label %17
17: ; preds = %10, %85
%18 = phi i64 [ 0, %10 ], [ %88, %85 ]
%19 = icmp eq i64 %18, 0
br i1 %19, label %64, label %20
20: ; preds = %17
%21 = add nuw i64 %18, 1
%22 = mul i64 %21, %18
%23 = lshr i64 %22, 1
%24 = and i64 %23, 2147483647
%25 = and i64 %18, 1
%26 = icmp eq i64 %18, 1
br i1 %26, label %51, label %27
27: ; preds = %20
%28 = and i64 %18, 9223372036854775806
br label %29
29: ; preds = %29, %27
%30 = phi i64 [ 0, %27 ], [ %48, %29 ]
%31 = phi double [ 0.000000e+00, %27 ], [ %47, %29 ]
%32 = phi i64 [ 0, %27 ], [ %49, %29 ]
%33 = add nuw nsw i64 %30, %16
%34 = getelementptr inbounds double, double* %2, i64 %33
%35 = load double, double* %34
%36 = add nuw nsw i64 %30, %24
%37 = getelementptr inbounds double, double* %2, i64 %36
%38 = load double, double* %37
%39 = tail call double @llvm.fmuladd.f64(double %35, double %38, double %31)
%40 = or i64 %30, 1
%41 = add nuw nsw i64 %40, %16
%42 = getelementptr inbounds double, double* %2, i64 %41
%43 = load double, double* %42
%44 = add nuw nsw i64 %40, %24
%45 = getelementptr inbounds double, double* %2, i64 %44
%46 = load double, double* %45
%47 = tail call double @llvm.fmuladd.f64(double %43, double %46, double %39)
%48 = add nuw nsw i64 %30, 2
%49 = add i64 %32, 2
%50 = icmp eq i64 %49, %28
br i1 %50, label %51, label %29
51: ; preds = %29, %20
%52 = phi double [ undef, %20 ], [ %47, %29 ]
%53 = phi i64 [ 0, %20 ], [ %48, %29 ]
%54 = phi double [ 0.000000e+00, %20 ], [ %47, %29 ]
%55 = icmp eq i64 %25, 0
br i1 %55, label %64, label %56
56: ; preds = %51
%57 = add nuw nsw i64 %53, %16
%58 = getelementptr inbounds double, double* %2, i64 %57
%59 = load double, double* %58
%60 = add nuw nsw i64 %53, %24
%61 = getelementptr inbounds double, double* %2, i64 %60
%62 = load double, double* %61
%63 = tail call double @llvm.fmuladd.f64(double %59, double %62, double %54)
br label %64
64: ; preds = %56, %51, %17
%65 = phi double [ 0.000000e+00, %17 ], [ %52, %51 ], [ %63, %56 ]
%66 = add nuw nsw i64 %18, %16
%67 = getelementptr inbounds double, double* %0, i64 %66
%68 = load double, double* %67
%69 = fsub double %68, %65
%70 = icmp eq i64 %11, %18
br i1 %70, label %71, label %75
71: ; preds = %64
%72 = fcmp ugt double %69, 0.000000e+00
br i1 %72, label %73, label %90
73: ; preds = %71
%74 = tail call double @sqrt(double %69)
br label %85
75: ; preds = %64
%76 = add nuw i64 %18, 1
%77 = mul i64 %76, %18
%78 = lshr i64 %77, 1
%79 = and i64 %78, 2147483647
%80 = add nuw nsw i64 %79, %18
%81 = getelementptr inbounds double, double* %2, i64 %80
%82 = load double, double* %81
%83 = fdiv double 1.000000e+00, %82
%84 = fmul double %69, %83
br label %85
85: ; preds = %73, %75
%86 = phi double [ %74, %73 ], [ %84, %75 ]
%87 = getelementptr inbounds double, double* %2, i64 %66
store double %86, double* %87
%88 = add nuw nsw i64 %18, 1
%89 = icmp eq i64 %88, %12
br i1 %89, label %7, label %17
90: ; preds = %7, %71, %3
%91 = phi i32 [ 1, %3 ], [ 0, %71 ], [ 1, %7 ]
ret i32 %91
}