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


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   $0x0,-0x28(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1234 <lubksb+0x134>
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)
je     11ec <lubksb+0xec>
mov    -0x28(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11e7 <lubksb+0xe7>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x320,%rcx,%rcx
add    %rcx,%rax
movslq -0x30(%rbp),%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 <lubksb+0x77>
jmp    1214 <lubksb+0x114>
movsd  -0x38(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1209 <lubksb+0x109>
jp     1209 <lubksb+0x109>
jmp    120f <lubksb+0x10f>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    1214 <lubksb+0x114>
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 <lubksb+0x21>
mov    -0xc(%rbp),%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x1,-0x24(%rbp)
jl     1305 <lubksb+0x205>
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
jg     12ca <lubksb+0x1ca>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x320,%rcx,%rcx
add    %rcx,%rax
movslq -0x30(%rbp),%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    125f <lubksb+0x15f>
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x320,%rcx,%rcx
add    %rcx,%rax
movslq -0x24(%rbp),%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    123a <lubksb+0x13a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<lubksb>:
push   %r14
push   %rbx
test   %esi,%esi
jle    12cd <lubksb+0x1cd>
lea    0x1(%rsi),%r8d
lea    0x328(%rdi),%r10
xor    %r9d,%r9d
mov    $0x1,%eax
xorpd  %xmm0,%xmm0
xor    %r11d,%r11d
jmp    115c <lubksb+0x5c>
nopw   0x0(%rax,%rax,1)
ucomisd %xmm0,%xmm1
jne    113c <lubksb+0x3c>
jnp    11ee <lubksb+0xee>
mov    %eax,%r11d
movsd  %xmm1,(%rcx,%rax,8)
add    $0x1,%rax
add    $0x1,%r9
add    $0x320,%r10
cmp    %r8,%rax
je     11f6 <lubksb+0xf6>
movslq (%rdx,%rax,4),%rbx
movsd  (%rcx,%rbx,8),%xmm1
movsd  (%rcx,%rax,8),%xmm2
movsd  %xmm2,(%rcx,%rbx,8)
test   %r11d,%r11d
je     1130 <lubksb+0x30>
movslq %r11d,%r14
cmp    %r14,%rax
jle    113f <lubksb+0x3f>
mov    %eax,%ebx
sub    %r11d,%ebx
test   $0x1,%bl
jne    1190 <lubksb+0x90>
mov    %r14,%rbx
cmp    %r14,%r9
jne    11c0 <lubksb+0xc0>
jmp    113f <lubksb+0x3f>
imul   $0x320,%rax,%rbx
add    %rdi,%rbx
movsd  (%rbx,%r14,8),%xmm2
mulsd  (%rcx,%r14,8),%xmm2
subsd  %xmm2,%xmm1
lea    0x1(%r14),%rbx
cmp    %r14,%r9
je     113f <lubksb+0x3f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
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,%rax
jne    11c0 <lubksb+0xc0>
jmp    113f <lubksb+0x3f>
xor    %r11d,%r11d
jmp    113f <lubksb+0x3f>
test   %esi,%esi
jle    12cd <lubksb+0x1cd>
mov    %esi,%r9d
imul   $0x320,%r9,%rax
lea    (%rdi,%rax,1),%rdx
add    $0x8,%rdx
xor    %r8d,%r8d
mov    %r9,%rsi
jmp    1250 <lubksb+0x150>
nopl   0x0(%rax,%rax,1)
imul   $0x320,%rsi,%rax
add    %rdi,%rax
divsd  (%rax,%rsi,8),%xmm0
movsd  %xmm0,(%rcx,%rsi,8)
lea    -0x1(%rsi),%rax
add    $0x1,%r8d
add    $0xfffffffffffffce0,%rdx
cmp    $0x1,%rsi
mov    %rax,%rsi
jle    12cd <lubksb+0x1cd>
movsd  (%rcx,%rsi,8),%xmm0
cmp    %r9,%rsi
jge    1220 <lubksb+0x120>
test   $0x1,%r8b
jne    1270 <lubksb+0x170>
mov    %rsi,%rax
cmp    $0x1,%r8d
jne    12a0 <lubksb+0x1a0>
jmp    1220 <lubksb+0x120>
nopl   0x0(%rax,%rax,1)
lea    0x1(%rsi),%rax
imul   $0x320,%rsi,%rbx
add    %rdi,%rbx
movsd  0x8(%rbx,%rsi,8),%xmm1
mulsd  0x8(%rcx,%rsi,8),%xmm1
subsd  %xmm1,%xmm0
cmp    $0x1,%r8d
je     1220 <lubksb+0x120>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%rdx,%rax,8),%xmm1
movsd  0x8(%rdx,%rax,8),%xmm2
mulsd  0x8(%rcx,%rax,8),%xmm1
mulsd  0x10(%rcx,%rax,8),%xmm2
subsd  %xmm1,%xmm0
add    $0x2,%rax
subsd  %xmm2,%xmm0
cmp    %eax,%r9d
jne    12a0 <lubksb+0x1a0>
jmp    1220 <lubksb+0x120>
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @lubksb([100 x double]* %0, i32 %1, i32* %2, double* %3) {
%5 = alloca [100 x 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 [100 x double]* %0, [100 x double]** %5
store i32 %1, i32* %6
store i32* %2, i32** %7
store double* %3, double** %8
store i32 0, i32* %10
store i32 1, i32* %9
br label %14
14: ; preds = %80, %4
%15 = load i32, i32* %9
%16 = load i32, i32* %6
%17 = icmp sle 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 ne 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 = sub nsw i32 %44, 1
%46 = icmp sle i32 %43, %45
br i1 %46, label %47, label %67
47: ; preds = %42
%48 = load [100 x double]*, [100 x double]** %5
%49 = load i32, i32* %9
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [100 x double], [100 x double]* %48, i64 %50
%52 = load i32, i32* %12
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds [100 x double], [100 x double]* %51, i64 0, 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 = %47
%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
store i32 %84, i32* %9
br label %85
85: ; preds = %135, %83
%86 = load i32, i32* %9
%87 = icmp sge i32 %86, 1
br i1 %87, label %88, label %138
88: ; preds = %85
%89 = load double*, double** %8
%90 = load i32, i32* %9
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %89, i64 %91
%93 = load double, double* %92
store double %93, double* %13
%94 = load i32, i32* %9
%95 = add nsw i32 %94, 1
store i32 %95, i32* %12
br label %96
96: ; preds = %117, %88
%97 = load i32, i32* %12
%98 = load i32, i32* %6
%99 = icmp sle i32 %97, %98
br i1 %99, label %100, label %120
100: ; preds = %96
%101 = load [100 x double]*, [100 x double]** %5
%102 = load i32, i32* %9
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds [100 x double], [100 x double]* %101, i64 %103
%105 = load i32, i32* %12
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds [100 x double], [100 x double]* %104, i64 0, i64 %106
%108 = load double, double* %107
%109 = load double*, double** %8
%110 = load i32, i32* %12
%111 = sext i32 %110 to i64
%112 = getelementptr inbounds double, double* %109, i64 %111
%113 = load double, double* %112
%114 = load double, double* %13
%115 = fneg double %108
%116 = call double @llvm.fmuladd.f64(double %115, double %113, double %114)
store double %116, double* %13
br label %117
117: ; preds = %100
%118 = load i32, i32* %12
%119 = add nsw i32 %118, 1
store i32 %119, i32* %12
br label %96
120: ; preds = %96
%121 = load double, double* %13
%122 = load [100 x double]*, [100 x double]** %5
%123 = load i32, i32* %9
%124 = sext i32 %123 to i64
%125 = getelementptr inbounds [100 x double], [100 x double]* %122, i64 %124
%126 = load i32, i32* %9
%127 = sext i32 %126 to i64
%128 = getelementptr inbounds [100 x double], [100 x double]* %125, i64 0, i64 %127
%129 = load double, double* %128
%130 = fdiv double %121, %129
%131 = load double*, double** %8
%132 = load i32, i32* %9
%133 = sext i32 %132 to i64
%134 = getelementptr inbounds double, double* %131, i64 %133
store double %130, double* %134
br label %135
135: ; preds = %120
%136 = load i32, i32* %9
%137 = add nsw i32 %136, -1
store i32 %137, i32* %9
br label %85
138: ; preds = %85
ret void
}

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