int chol_solve(A, v, p)
double *A, *v;
int p;
{
  int i, j;
  for (i = 0; i < p; i++) {
    for (j = 0; j < i; j++)
      v[i] -= A[j * p + i] * v[j];
    v[i] /= A[i * p + i];
  }
  for (i = p - 1; i >= 0; i--) {
    for (j = i + 1; j < p; j++)
      v[i] -= A[i * p + j] * v[j];
    v[i] /= A[i * p + i];
  }
  return (p);
}


x86 assembly (clang, -O0):
<chol_solve>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11d1 <chol_solve+0xd1>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1197 <chol_solve+0x97>
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movq   %xmm0,%rdx
movabs $0x8000000000000000,%rsi
xor    %rsi,%rdx
movq   %rdx,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1129 <chol_solve+0x29>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1116 <chol_solve+0x16>
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jl     1295 <chol_solve+0x195>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    125b <chol_solve+0x15b>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movq   %xmm0,%rdx
movabs $0x8000000000000000,%rsi
xor    %rsi,%rdx
movq   %rdx,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11ed <chol_solve+0xed>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
jmp    11da <chol_solve+0xda>
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<chol_solve>:
push   %r14
push   %rbx
mov    %edx,%eax
test   %edx,%edx
jle    12c6 <chol_solve+0x1c6>
mov    %eax,%r9d
mov    %r9,%r10
shl    $0x4,%r10
xor    %r14d,%r14d
mov    %rdi,%r8
jmp    114c <chol_solve+0x4c>
nop
movsd  (%rsi),%xmm0
mov    %r14d,%ecx
imul   %eax,%ecx
movslq %ecx,%rcx
add    %r14,%rcx
divsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%rsi,%r14,8)
add    $0x1,%r14
add    $0x8,%r8
cmp    %r9,%r14
je     11e2 <chol_solve+0xe2>
test   %r14,%r14
je     1120 <chol_solve+0x20>
movsd  (%rsi,%r14,8),%xmm0
cmp    $0x1,%r14
jne    1170 <chol_solve+0x70>
xor    %ecx,%ecx
jmp    11b5 <chol_solve+0xb5>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %r14,%r11
and    $0xfffffffffffffffe,%r11
mov    %r8,%rbx
xor    %ecx,%ecx
nopl   0x0(%rax)
movsd  (%rbx),%xmm1
mulsd  (%rsi,%rcx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%r14,8)
movsd  (%rbx,%r9,8),%xmm1
mulsd  0x8(%rsi,%rcx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%r14,8)
add    $0x2,%rcx
add    %r10,%rbx
cmp    %rcx,%r11
jne    1180 <chol_solve+0x80>
test   $0x1,%r14b
je     1124 <chol_solve+0x24>
mov    %rcx,%rdx
imul   %r9,%rdx
add    %r14,%rdx
movsd  (%rdi,%rdx,8),%xmm1
mulsd  (%rsi,%rcx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%r14,8)
jmp    1124 <chol_solve+0x24>
test   %eax,%eax
jle    12c6 <chol_solve+0x1c6>
lea    -0x1(%r9),%rcx
imul   %r9,%rcx
lea    (%rdi,%rcx,8),%rdx
add    $0x8,%rdx
lea    0x0(,%r9,8),%r8
neg    %r8
xor    %r10d,%r10d
mov    %r9,%rcx
jmp    123b <chol_solve+0x13b>
nopl   (%rax)
movsd  (%rsi,%rcx,8),%xmm0
mov    %ecx,%ebx
imul   %eax,%ebx
movslq %ebx,%rbx
add    %rcx,%rbx
divsd  (%rdi,%rbx,8),%xmm0
movsd  %xmm0,(%rsi,%rcx,8)
add    $0x1,%r10d
add    %r8,%rdx
cmp    $0x1,%r11
jle    12c6 <chol_solve+0x1c6>
mov    %rcx,%r11
add    $0xffffffffffffffff,%rcx
cmp    %r9,%r11
jge    1210 <chol_solve+0x110>
movsd  (%rsi,%rcx,8),%xmm0
test   $0x1,%r10b
jne    1260 <chol_solve+0x160>
mov    %r11,%rbx
cmp    $0x1,%r10d
jne    1290 <chol_solve+0x190>
jmp    1215 <chol_solve+0x115>
nopl   (%rax)
mov    %rcx,%rbx
imul   %r9,%rbx
add    %r11,%rbx
movsd  (%rdi,%rbx,8),%xmm1
mulsd  (%rsi,%r11,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%rcx,8)
lea    0x1(%r11),%rbx
cmp    $0x1,%r10d
je     1215 <chol_solve+0x115>
nopl   0x0(%rax,%rax,1)
movsd  -0x8(%rdx,%rbx,8),%xmm1
mulsd  (%rsi,%rbx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%rcx,8)
movsd  (%rdx,%rbx,8),%xmm1
mulsd  0x8(%rsi,%rbx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%rcx,8)
add    $0x2,%rbx
cmp    %ebx,%r9d
jne    1290 <chol_solve+0x190>
jmp    1215 <chol_solve+0x115>
pop    %rbx
pop    %r14
ret

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

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