void lubksb2(double *a, int n, int *indx, double *b) {
  int i, ii = -1, ip, j;
  double sum;
  for (i = 0; i < n; i++) {
    ip = indx[i];
    sum = b[ip];
    b[ip] = b[i];
    if (ii >= 0)
      for (j = ii; j < i; j++)
        sum -= a[i * n + j] * b[j];
    else if (sum)
      ii = i;
    b[i] = sum;
  }
  for (i = n - 1; i >= 0; i--) {
    sum = b[i];
    for (j = i + 1; j < n; j++)
      sum -= a[i * n + j] * b[j];
    b[i] = sum / a[i * n + i];
  }
}


x86 assembly (clang, -O0):
<lubksb2>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0xffffffff,-0x28(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    122a <lubksb2+0x12a>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
cmpl   $0x0,-0x28(%rbp)
jl     11e2 <lubksb2+0xe2>
mov    -0x28(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11dd <lubksb2+0xdd>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0xc(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1177 <lubksb2+0x77>
jmp    120a <lubksb2+0x10a>
movsd  -0x38(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11ff <lubksb2+0xff>
jp     11ff <lubksb2+0xff>
jmp    1205 <lubksb2+0x105>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    120a <lubksb2+0x10a>
movsd  -0x38(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1121 <lubksb2+0x21>
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jl     12f4 <lubksb2+0x1f4>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12be <lubksb2+0x1be>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0xc(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1258 <lubksb2+0x158>
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0xc(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1233 <lubksb2+0x133>
pop    %rbp
ret

x86 assembly (clang, -O2):
<lubksb2>:
push   %r15
push   %r14
push   %r12
push   %rbx
test   %esi,%esi
jle    12bc <lubksb2+0x1bc>
mov    %esi,%r8d
lea    0x8(%rdi),%r10
lea    0x0(,%r8,8),%r9
mov    $0xffffffff,%r11d
xor    %r12d,%r12d
xorpd  %xmm0,%xmm0
jmp    1146 <lubksb2+0x46>
nopl   (%rax)
movsd  %xmm1,(%rcx,%r12,8)
add    $0x1,%r12
add    %r9,%r10
cmp    %r8,%r12
je     11e4 <lubksb2+0xe4>
movslq (%rdx,%r12,4),%rbx
movsd  (%rcx,%rbx,8),%xmm1
movsd  (%rcx,%r12,8),%xmm2
movsd  %xmm2,(%rcx,%rbx,8)
test   %r11d,%r11d
js     11d0 <lubksb2+0xd0>
mov    %r11d,%ebx
cmp    %rbx,%r12
jbe    1130 <lubksb2+0x30>
mov    %r12d,%r15d
sub    %ebx,%r15d
lea    0x1(%rbx),%r14
test   $0x1,%r15b
je     1192 <lubksb2+0x92>
mov    %r12,%rax
imul   %r8,%rax
add    %rbx,%rax
movsd  (%rdi,%rax,8),%xmm2
mulsd  (%rcx,%rbx,8),%xmm2
subsd  %xmm2,%xmm1
mov    %r14,%rbx
cmp    %r14,%r12
je     1130 <lubksb2+0x30>
nopw   0x0(%rax,%rax,1)
movsd  -0x8(%r10,%rbx,8),%xmm2
movsd  (%r10,%rbx,8),%xmm3
mulsd  (%rcx,%rbx,8),%xmm2
mulsd  0x8(%rcx,%rbx,8),%xmm3
subsd  %xmm2,%xmm1
subsd  %xmm3,%xmm1
add    $0x2,%rbx
cmp    %rbx,%r12
jne    11a0 <lubksb2+0xa0>
jmp    1130 <lubksb2+0x30>
xchg   %ax,%ax
ucomisd %xmm0,%xmm1
jne    11dc <lubksb2+0xdc>
jnp    1130 <lubksb2+0x30>
mov    %r12d,%r11d
jmp    1130 <lubksb2+0x30>
test   %esi,%esi
jle    12bc <lubksb2+0x1bc>
lea    -0x1(%r8),%rax
imul   %r8,%rax
lea    (%rdi,%rax,8),%rax
add    $0x8,%rax
lea    0x0(,%r8,8),%r9
neg    %r9
xor    %edx,%edx
mov    %r8,%r10
jmp    1237 <lubksb2+0x137>
xchg   %ax,%ax
mov    %r10d,%ebx
imul   %esi,%ebx
movslq %ebx,%rbx
add    %r10,%rbx
divsd  (%rdi,%rbx,8),%xmm0
movsd  %xmm0,(%rcx,%r10,8)
add    $0x1,%edx
add    %r9,%rax
cmp    $0x1,%r11
jle    12bc <lubksb2+0x1bc>
mov    %r10,%r11
add    $0xffffffffffffffff,%r10
movsd  -0x8(%rcx,%r11,8),%xmm0
cmp    %r8,%r11
jge    1210 <lubksb2+0x110>
test   $0x1,%dl
jne    1260 <lubksb2+0x160>
mov    %r11,%rbx
cmp    $0x1,%edx
jne    1290 <lubksb2+0x190>
jmp    1210 <lubksb2+0x110>
nopl   0x0(%rax)
mov    %r10,%rbx
imul   %r8,%rbx
add    %r11,%rbx
movsd  (%rdi,%rbx,8),%xmm1
mulsd  (%rcx,%r11,8),%xmm1
subsd  %xmm1,%xmm0
lea    0x1(%r11),%rbx
cmp    $0x1,%edx
je     1210 <lubksb2+0x110>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  -0x8(%rax,%rbx,8),%xmm1
movsd  (%rax,%rbx,8),%xmm2
mulsd  (%rcx,%rbx,8),%xmm1
mulsd  0x8(%rcx,%rbx,8),%xmm2
subsd  %xmm1,%xmm0
subsd  %xmm2,%xmm0
add    $0x2,%rbx
cmp    %ebx,%r8d
jne    1290 <lubksb2+0x190>
jmp    1210 <lubksb2+0x110>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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