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


x86 assembly (clang, -O0):
<lubksb>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0xffffffff,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    122c <lubksb+0x12c>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x34(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
cmpl   $0x0,-0x30(%rbp)
jl     11e4 <lubksb+0xe4>
mov    -0x30(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    11df <lubksb+0xdf>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x38(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x28(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1177 <lubksb+0x77>
jmp    120c <lubksb+0x10c>
movsd  -0x28(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1201 <lubksb+0x101>
jp     1201 <lubksb+0x101>
jmp    1207 <lubksb+0x107>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    120c <lubksb+0x10c>
movsd  -0x28(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1121 <lubksb+0x21>
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jl     12fa <lubksb+0x1fa>
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12c2 <lubksb+0x1c2>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x38(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x28(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    125a <lubksb+0x15a>
movsd  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x2c(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    1235 <lubksb+0x135>
pop    %rbp
ret

x86 assembly (clang, -O2):
<lubksb>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %esi,%esi
jle    12ef <lubksb+0x1ef>
mov    %esi,%r8d
mov    %r8,%r10
shl    $0x4,%r10
lea    0x0(,%r8,8),%r9
mov    $0xffffffff,%r11d
xor    %r14d,%r14d
xorpd  %xmm0,%xmm0
xor    %r13d,%r13d
jmp    1157 <lubksb+0x57>
cs nopw 0x0(%rax,%rax,1)
movsd  %xmm1,(%rcx,%r13,8)
add    $0x1,%r13
add    $0x8,%r14
cmp    %r8,%r13
je     1224 <lubksb+0x124>
movslq (%rdx,%r13,4),%rax
movsd  (%rcx,%rax,8),%xmm1
movsd  (%rcx,%r13,8),%xmm2
movsd  %xmm2,(%rcx,%rax,8)
test   %r11d,%r11d
js     1210 <lubksb+0x110>
mov    %r11d,%ebx
cmp    %rbx,%r13
jbe    1140 <lubksb+0x40>
mov    %r13d,%ebp
sub    %ebx,%ebp
lea    0x1(%rbx),%r15
test   $0x1,%bpl
je     11a6 <lubksb+0xa6>
mov    %rbx,%rax
imul   %r8,%rax
add    %r13,%rax
movsd  (%rdi,%rax,8),%xmm2
mulsd  (%rcx,%rbx,8),%xmm2
subsd  %xmm2,%xmm1
mov    %r15,%rbx
cmp    %r15,%r13
je     1140 <lubksb+0x40>
mov    %r8,%r15
imul   %rbx,%r15
add    %r13,%r15
lea    0x1(%rbx),%r12
imul   %r9,%r12
add    %r14,%r12
mov    %rdi,%rbp
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  0x0(%rbp,%r15,8),%xmm2
mulsd  (%rcx,%rbx,8),%xmm2
subsd  %xmm2,%xmm1
movsd  0x0(%rbp,%r12,1),%xmm2
mulsd  0x8(%rcx,%rbx,8),%xmm2
subsd  %xmm2,%xmm1
add    $0x2,%rbx
add    %r10,%rbp
cmp    %rbx,%r13
jne    11d0 <lubksb+0xd0>
jmp    1140 <lubksb+0x40>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
ucomisd %xmm0,%xmm1
jne    121c <lubksb+0x11c>
jnp    1140 <lubksb+0x40>
mov    %r13d,%r11d
jmp    1140 <lubksb+0x40>
test   %esi,%esi
jle    12ef <lubksb+0x1ef>
lea    -0x1(%r8),%r9
lea    (%r8,%r8,1),%r12
xor    %r15d,%r15d
mov    %rdi,%r11
mov    %r8,%r10
jmp    1268 <lubksb+0x168>
nop
mov    %r10d,%eax
imul   %esi,%eax
cltq
add    %r10,%rax
divsd  (%rdi,%rax,8),%xmm0
movsd  %xmm0,(%rcx,%r10,8)
add    $0x1,%r15d
add    $0xfffffffffffffff8,%r11
cmp    $0x1,%r14
jle    12ef <lubksb+0x1ef>
mov    %r10,%r14
add    $0xffffffffffffffff,%r10
movsd  -0x8(%rcx,%r14,8),%xmm0
cmp    %r8,%r14
jge    1240 <lubksb+0x140>
mov    %r14,%rax
test   $0x1,%r15b
je     129e <lubksb+0x19e>
imul   %r8,%rax
add    %r10,%rax
movsd  (%rdi,%rax,8),%xmm1
mulsd  (%rcx,%r14,8),%xmm1
subsd  %xmm1,%xmm0
lea    0x1(%r14),%rax
cmp    $0x1,%r15d
je     1240 <lubksb+0x140>
mov    %r8,%rdx
imul   %rax,%rdx
lea    (%r11,%rdx,8),%rbx
lea    0x1(%rax),%rdx
imul   %r8,%rdx
lea    (%r11,%rdx,8),%rbp
mov    %r9,%rdx
xchg   %ax,%ax
movsd  (%rbx,%rdx,8),%xmm1
mulsd  (%rcx,%rax,8),%xmm1
subsd  %xmm1,%xmm0
movsd  0x0(%rbp,%rdx,8),%xmm1
mulsd  0x8(%rcx,%rax,8),%xmm1
subsd  %xmm1,%xmm0
add    $0x2,%rax
add    %r12,%rdx
cmp    %eax,%r8d
jne    12c0 <lubksb+0x1c0>
jmp    1240 <lubksb+0x140>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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