int solvru(double *a, double *b, int n) {
  int j, k;
  double fabs();
  double s, t, *p, *q;
  for (j = 0, s = 0., p = a; j < n; ++j, p += n + 1)
    if ((t = fabs(*p)) > s)
      s = t;
  s *= 1.e-16;
  for (j = n - 1, p = a + n * n - 1; j >= 0; --j, p -= n + 1) {
    for (k = j + 1, q = p + 1; k < n;)
      b[j] -= b[k++] * *q++;
    if (fabs(*p) < s)
      return -1;
    b[j] /= *p;
  }
  return 0;
}


x86 assembly (clang, -O0):
<solvru>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    118a <solvru+0x8a>
mov    -0x40(%rbp),%rax
movsd  (%rax),%xmm0
movaps 0xecf(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
ucomisd -0x30(%rbp),%xmm0
jbe    115f <solvru+0x5f>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
jmp    1164 <solvru+0x64>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
jmp    1126 <solvru+0x26>
movsd  0xe6e(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x40(%rbp)
cmpl   $0x0,-0x20(%rbp)
jl     12c4 <solvru+0x1c4>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x40(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x48(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    124d <solvru+0x14d>
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x24(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x48(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x48(%rbp)
movsd  (%rax),%xmm2
mov    -0x18(%rbp),%rax
movslq -0x20(%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)
jmp    11e1 <solvru+0xe1>
mov    -0x40(%rbp),%rax
movsd  (%rax),%xmm1
movaps 0xdb4(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  -0x30(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    127b <solvru+0x17b>
movl   $0xffffffff,-0x4(%rbp)
jmp    12cb <solvru+0x1cb>
mov    -0x40(%rbp),%rax
movsd  (%rax),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
jmp    11c2 <solvru+0xc2>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<solvru>:
push   %r15
push   %r14
push   %r12
push   %rbx
xor    %eax,%eax
test   %edx,%edx
jle    1301 <solvru+0x201>
lea    0x1(%rdx),%r8d
lea    -0x1(%rdx),%ecx
mov    %edx,%r9d
and    $0x3,%r9d
cmp    $0x3,%ecx
jae    1130 <solvru+0x30>
xorpd  %xmm1,%xmm1
mov    %rdi,%rbx
jmp    11ae <solvru+0xae>
mov    %edx,%r11d
and    $0xfffffffc,%r11d
mov    %r8,%r10
shl    $0x5,%r10
lea    0x0(,%r8,8),%r14
xorpd  %xmm1,%xmm1
movapd 0xeae(%rip),%xmm0
mov    %rdi,%rcx
cs nopw 0x0(%rax,%rax,1)
nop
mov    %rcx,%rbx
movsd  (%rcx),%xmm2
andpd  %xmm0,%xmm2
maxsd  %xmm1,%xmm2
add    %r14,%rcx
movsd  (%rbx,%r14,1),%xmm1
andpd  %xmm0,%xmm1
maxsd  %xmm2,%xmm1
movsd  (%r14,%rcx,1),%xmm2
add    %r14,%rcx
andpd  %xmm0,%xmm2
maxsd  %xmm1,%xmm2
movsd  (%r14,%rcx,1),%xmm1
add    %r14,%rcx
andpd  %xmm0,%xmm1
maxsd  %xmm2,%xmm1
add    %r14,%rcx
add    $0xfffffffc,%r11d
jne    1160 <solvru+0x60>
add    %r10,%rbx
movapd %xmm1,%xmm0
test   %r9d,%r9d
je     11e9 <solvru+0xe9>
shl    $0x3,%r8
movapd 0xe3d(%rip),%xmm2
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%rbx),%xmm0
andpd  %xmm2,%xmm0
maxsd  %xmm1,%xmm0
add    %r8,%rbx
movapd %xmm0,%xmm1
add    $0xffffffff,%r9d
jne    11d0 <solvru+0xd0>
test   %edx,%edx
jle    1301 <solvru+0x201>
mulsd  0xe17(%rip),%xmm0
mov    %edx,%eax
imul   %eax,%eax
lea    (%rdi,%rax,8),%r15
add    $0xfffffffffffffff8,%r15
mov    %edx,%eax
not    %eax
movslq %eax,%r9
mov    %edx,%r10d
lea    0x8(%rsi),%r8
xor    %r11d,%r11d
movapd 0xde1(%rip),%xmm1
mov    %r10,%r14
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    -0x1(%r14),%rdi
cmp    %r10,%r14
jge    12c2 <solvru+0x1c2>
movsd  (%rsi,%rdi,8),%xmm2
test   $0x1,%r11b
jne    1260 <solvru+0x160>
mov    %r14,%rax
mov    %r15,%rbx
cmp    $0x1,%r11d
jne    1283 <solvru+0x183>
jmp    12c2 <solvru+0x1c2>
cs nopw 0x0(%rax,%rax,1)
lea    0x8(%r15),%rbx
lea    0x1(%r14),%rax
movsd  (%rsi,%r14,8),%xmm3
mulsd  0x8(%r15),%xmm3
subsd  %xmm3,%xmm2
movsd  %xmm2,(%rsi,%rdi,8)
cmp    $0x1,%r11d
je     12c2 <solvru+0x1c2>
mov    %edx,%r12d
sub    %eax,%r12d
lea    (%r8,%rax,8),%rax
xor    %ecx,%ecx
nop
movsd  -0x8(%rax,%rcx,8),%xmm3
mulsd  0x8(%rbx,%rcx,8),%xmm3
subsd  %xmm3,%xmm2
movsd  %xmm2,(%rsi,%rdi,8)
movsd  (%rax,%rcx,8),%xmm3
mulsd  0x10(%rbx,%rcx,8),%xmm3
subsd  %xmm3,%xmm2
movsd  %xmm2,(%rsi,%rdi,8)
add    $0x2,%rcx
cmp    %ecx,%r12d
jne    1290 <solvru+0x190>
movsd  (%r15),%xmm2
movapd %xmm2,%xmm3
andpd  %xmm1,%xmm3
ucomisd %xmm3,%xmm0
ja     12fc <solvru+0x1fc>
movsd  (%rsi,%rdi,8),%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,(%rsi,%rdi,8)
lea    (%r15,%r9,8),%r15
add    $0x1,%r11d
cmp    $0x1,%r14
mov    %rdi,%r14
jg     1230 <solvru+0x130>
xor    %eax,%eax
jmp    1301 <solvru+0x201>
mov    $0xffffffff,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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