int gels(A, R, M, EPS, AUX)
long double A[], R[];
int M;
long double EPS;
long double AUX[];
{
  int I, J, K, L, IER;
  int II, LL, LLD, LR, LT, LST, LLST, LEND;
  long double tb, piv, tol, pivi;
  IER = 0;
  if (M <= 0) {
  fatal:
    IER = -1;
    goto done;
  }
  piv = 0.0L;
  I = 0;
  J = 0;
  L = 0;
  for (K = 1; K <= M; K++) {
    L += K;
    tb = ((A[L - 1]) < 0.0L ? -(A[L - 1]) : (A[L - 1]));
    if (tb > piv) {
      piv = tb;
      I = L;
      J = K;
    }
  }
  tol = EPS * piv;
  LST = 0;
  LEND = M - 1;
  for (K = 1; K <= M; K++) {
    if (piv <= 0.0L) {
      printf("gels: piv <= 0 at K = %d\n", K);
      goto fatal;
    }
    if (IER == 0) {
      if (piv <= tol) {
        IER = K;
      }
    }
    LT = J - K;
    LST += K;
    pivi = 1.0L / A[I - 1];
    L = K;
    LL = L + LT;
    tb = pivi * R[LL - 1];
    R[LL - 1] = R[L - 1];
    R[L - 1] = tb;
    if (K >= M)
      break;
    LR = LST + (LT * (K + J - 1)) / 2;
    LL = LR;
    L = LST;
    for (II = K; II <= LEND; II++) {
      L += II;
      LL += 1;
      if (L == LR) {
        A[LL - 1] = A[LST - 1];
        tb = A[L - 1];
        goto lab13;
      }
      if (L > LR)
        LL = L + LT;
      tb = A[LL - 1];
      A[LL - 1] = A[L - 1];
    lab13:
      AUX[II - 1] = tb;
      A[L - 1] = pivi * tb;
    }
    A[LST - 1] = LT;
    piv = 0.0L;
    LLST = LST;
    LT = 0;
    for (II = K; II <= LEND; II++) {
      pivi = -AUX[II - 1];
      LL = LLST;
      LT += 1;
      for (LLD = II; LLD <= LEND; LLD++) {
        LL += LLD;
        L = LL + LT;
        A[L - 1] += pivi * A[LL - 1];
      }
      LLST += II;
      LR = LLST + LT;
      tb = ((A[LR - 1]) < 0.0L ? -(A[LR - 1]) : (A[LR - 1]));
      if (tb > piv) {
        piv = tb;
        I = LR;
        J = II + 1;
      }
      LR = K;
      LL = LR + LT;
      R[LL - 1] += pivi * R[LR - 1];
    }
  }
  if (LEND <= 0) {
    printf("gels: LEND = %d\n", LEND);
    if (LEND < 0)
      goto fatal;
    goto done;
  }
  II = M;
  for (I = 2; I <= M; I++) {
    LST -= II;
    II -= 1;
    L = A[LST - 1] + 0.5L;
    J = II;
    tb = R[J - 1];
    LL = J;
    K = LST;
    for (LT = II; LT <= LEND; LT++) {
      LL += 1;
      K += LT;
      tb -= A[K - 1] * R[LL - 1];
    }
    K = J + L;
    R[J - 1] = R[K - 1];
    R[K - 1] = tb;
  }
done:
  if (IER)
    printf("gels error %d!\n", IER);
  return (IER);
}


x86 assembly (clang, -O0):
<gels>:
push   %rbp
mov    %rsp,%rbp
sub    $0xe0,%rsp
fldt   0x10(%rbp)
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
fstpt  -0x30(%rbp)
mov    %rcx,-0x38(%rbp)
movl   $0x0,-0x4c(%rbp)
cmpl   $0x0,-0x14(%rbp)
jg     1152 <gels+0x42>
jmp    1146 <gels+0x36>
movl   $0xffffffff,-0x4c(%rbp)
jmp    184c <gels+0x73c>
fldz
fstpt  -0x90(%rbp)
movl   $0x0,-0x3c(%rbp)
movl   $0x0,-0x40(%rbp)
movl   $0x0,-0x48(%rbp)
movl   $0x1,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     123e <gels+0x12e>
mov    -0x44(%rbp),%ecx
mov    -0x48(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x48(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fldz
fucomip %st(1),%st
fstp   %st(0)
jbe    11d9 <gels+0xc9>
jmp    11b2 <gels+0xa2>
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
mov    %rax,%rdx
add    %rcx,%rdx
fldt   (%rax,%rcx,1)
fchs
fstpt  -0xc8(%rbp)
jmp    11f3 <gels+0xe3>
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fstpt  -0xc8(%rbp)
fldt   -0xc8(%rbp)
fstpt  -0x80(%rbp)
fldt   -0x80(%rbp)
fldt   -0x90(%rbp)
fxch   %st(1)
fucomip %st(1),%st
fstp   %st(0)
jbe    122b <gels+0x11b>
jmp    1216 <gels+0x106>
fldt   -0x80(%rbp)
fstpt  -0x90(%rbp)
mov    -0x48(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    1230 <gels+0x120>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1176 <gels+0x66>
fldt   -0x30(%rbp)
fldt   -0x90(%rbp)
fmulp  %st,%st(1)
fstpt  -0xa0(%rbp)
movl   $0x0,-0x64(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x6c(%rbp)
movl   $0x1,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     16b6 <gels+0x5a6>
fldt   -0x90(%rbp)
fldz
fucomip %st(1),%st
fstp   %st(0)
jb     129f <gels+0x18f>
jmp    1289 <gels+0x179>
mov    -0x44(%rbp),%esi
lea    0xd71(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    1146 <gels+0x36>
cmpl   $0x0,-0x4c(%rbp)
jne    12cf <gels+0x1bf>
fldt   -0x90(%rbp)
fldt   -0xa0(%rbp)
fucomip %st(1),%st
fstp   %st(0)
jb     12ca <gels+0x1ba>
jmp    12c4 <gels+0x1b4>
mov    -0x44(%rbp),%eax
mov    %eax,-0x4c(%rbp)
jmp    12cf <gels+0x1bf>
mov    -0x40(%rbp),%eax
mov    -0x44(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x60(%rbp)
mov    -0x44(%rbp),%ecx
mov    -0x64(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x64(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x3c(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fld1
fdivp  %st,%st(1)
fstpt  -0xb0(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x48(%rbp),%eax
mov    -0x60(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x54(%rbp)
fldt   -0xb0(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fmulp  %st,%st(1)
fstpt  -0x80(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
fldt   -0x80(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jl     137f <gels+0x26f>
jmp    16b6 <gels+0x5a6>
mov    -0x64(%rbp),%eax
mov    %eax,-0xcc(%rbp)
mov    -0x60(%rbp),%eax
mov    -0x44(%rbp),%ecx
add    -0x40(%rbp),%ecx
sub    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0xcc(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x5c(%rbp)
mov    -0x5c(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x64(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x50(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0x6c(%rbp),%eax
jg     14bc <gels+0x3ac>
mov    -0x50(%rbp),%eax
add    -0x48(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
mov    -0x48(%rbp),%eax
cmp    -0x5c(%rbp),%eax
jne    1428 <gels+0x318>
mov    -0x8(%rbp),%rax
mov    -0x64(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fstpt  -0x80(%rbp)
jmp    1478 <gels+0x368>
mov    -0x48(%rbp),%eax
cmp    -0x5c(%rbp),%eax
jle    143d <gels+0x32d>
mov    -0x48(%rbp),%eax
add    -0x60(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fstpt  -0x80(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
fldt   -0x80(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x50(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
fldt   -0xb0(%rbp)
fldt   -0x80(%rbp)
fmulp  %st,%st(1)
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    13be <gels+0x2ae>
mov    -0x60(%rbp),%eax
mov    %eax,-0xb4(%rbp)
fildl  -0xb4(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x64(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
fldz
fstpt  -0x90(%rbp)
mov    -0x64(%rbp),%eax
mov    %eax,-0x68(%rbp)
movl   $0x0,-0x60(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x50(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0x6c(%rbp),%eax
jg     16a3 <gels+0x593>
mov    -0x38(%rbp),%rax
mov    -0x50(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fchs
fstpt  -0xb0(%rbp)
mov    -0x68(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x60(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x60(%rbp)
mov    -0x50(%rbp),%eax
mov    %eax,-0x58(%rbp)
mov    -0x58(%rbp),%eax
cmp    -0x6c(%rbp),%eax
jg     159a <gels+0x48a>
mov    -0x58(%rbp),%ecx
mov    -0x54(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x54(%rbp)
mov    -0x54(%rbp),%eax
mov    -0x60(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x48(%rbp)
fldt   -0xb0(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x48(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fxch   %st(2)
fmulp  %st,%st(1)
faddp  %st,%st(1)
fstpt  (%rax,%rcx,1)
mov    -0x58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x58(%rbp)
jmp    1537 <gels+0x427>
mov    -0x50(%rbp),%ecx
mov    -0x68(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x68(%rbp)
mov    -0x68(%rbp),%eax
mov    -0x60(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x5c(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x5c(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fldz
fucomip %st(1),%st
fstp   %st(0)
jbe    15fc <gels+0x4ec>
jmp    15d5 <gels+0x4c5>
mov    -0x8(%rbp),%rax
mov    -0x5c(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
mov    %rax,%rdx
add    %rcx,%rdx
fldt   (%rax,%rcx,1)
fchs
fstpt  -0xd8(%rbp)
jmp    1616 <gels+0x506>
mov    -0x8(%rbp),%rax
mov    -0x5c(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fstpt  -0xd8(%rbp)
fldt   -0xd8(%rbp)
fstpt  -0x80(%rbp)
fldt   -0x80(%rbp)
fldt   -0x90(%rbp)
fxch   %st(1)
fucomip %st(1),%st
fstp   %st(0)
jbe    1651 <gels+0x541>
jmp    1639 <gels+0x529>
fldt   -0x80(%rbp)
fstpt  -0x90(%rbp)
mov    -0x5c(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x5c(%rbp)
mov    -0x5c(%rbp),%eax
mov    -0x60(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x54(%rbp)
fldt   -0xb0(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x5c(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fxch   %st(2)
fmulp  %st,%st(1)
faddp  %st,%st(1)
fstpt  (%rax,%rcx,1)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    14fa <gels+0x3ea>
jmp    16a8 <gels+0x598>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1266 <gels+0x156>
cmpl   $0x0,-0x6c(%rbp)
jg     16e5 <gels+0x5d5>
mov    -0x6c(%rbp),%esi
lea    0x954(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
cmpl   $0x0,-0x6c(%rbp)
jge    16e0 <gels+0x5d0>
jmp    1146 <gels+0x36>
jmp    184c <gels+0x73c>
mov    -0x14(%rbp),%eax
mov    %eax,-0x50(%rbp)
movl   $0x2,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1847 <gels+0x737>
mov    -0x50(%rbp),%ecx
mov    -0x64(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x64(%rbp)
mov    -0x50(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x50(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x64(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
flds   0x8d4(%rip)
faddp  %st,%st(1)
fnstcw -0xba(%rbp)
movzwl -0xba(%rbp),%eax
or     $0xc00,%eax
mov    %ax,-0xbc(%rbp)
fldcw  -0xbc(%rbp)
fistpl -0xb8(%rbp)
fldcw  -0xba(%rbp)
mov    -0xb8(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x50(%rbp),%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x40(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fstpt  -0x80(%rbp)
mov    -0x40(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x64(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x50(%rbp),%eax
mov    %eax,-0x60(%rbp)
mov    -0x60(%rbp),%eax
cmp    -0x6c(%rbp),%eax
jg     17f3 <gels+0x6e3>
mov    -0x54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
mov    -0x60(%rbp),%ecx
mov    -0x44(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x44(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x54(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fldt   -0x80(%rbp)
fxch   %st(2)
fmulp  %st,%st(1)
fsubrp %st,%st(1)
fstpt  -0x80(%rbp)
mov    -0x60(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x60(%rbp)
jmp    1791 <gels+0x681>
mov    -0x40(%rbp),%eax
mov    -0x48(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x44(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
mov    -0x40(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
fldt   -0x80(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rax,%rcx,1)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    16f2 <gels+0x5e2>
jmp    184c <gels+0x73c>
cmpl   $0x0,-0x4c(%rbp)
je     1867 <gels+0x757>
mov    -0x4c(%rbp),%esi
lea    0x7cf(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x4c(%rbp),%eax
add    $0xe0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<gels>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x58,%rsp
mov    %rcx,0x48(%rsp)
fldt   0x90(%rsp)
mov    $0xffffffff,%r15d
test   %edx,%edx
jle    1150 <gels+0x40>
mov    %edx,%r13d
fldz
cmp    $0x1,%edx
jne    1157 <gels+0x47>
xor    %r11d,%r11d
mov    $0x1,%eax
xor    %r9d,%r9d
xor    %ebp,%ebp
jmp    11ef <gels+0xdf>
fstp   %st(0)
jmp    14d8 <gels+0x3c8>
fstp   %st(0)
mov    %r13d,%r8d
and    $0xfffffffe,%r8d
fldz
xor    %r11d,%r11d
mov    $0x1,%eax
xor    %r9d,%r9d
xor    %ebp,%ebp
xor    %r10d,%r10d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    %eax,%ebp
movslq %ebp,%rbx
mov    %rbx,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
fldz
fucomi %st(1),%st
fld    %st(1)
fchs
fxch   %st(2)
fcmovnbe %st(2),%st
fstp   %st(2)
fxch   %st(1)
fucomi %st(2),%st
fxch   %st(2)
fcmovnbe %st(2),%st
fstp   %st(2)
cmova  %eax,%r9d
cmova  %ebx,%r11d
lea    (%rax,%rbx,1),%ebp
add    $0x1,%ebp
add    %eax,%ebx
movslq %ebx,%rcx
shl    $0x4,%rcx
fldt   (%rdi,%rcx,1)
fxch   %st(1)
fucomip %st(1),%st
fld    %st(0)
fchs
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
fucomi %st(1),%st
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
lea    0x1(%rax),%ecx
cmova  %ecx,%r9d
cmova  %ebp,%r11d
add    $0x2,%r10
add    $0x2,%eax
cmp    %r8,%r10
jne    1180 <gels+0x70>
test   $0x1,%r13b
je     1223 <gels+0x113>
add    %eax,%ebp
movslq %ebp,%rbp
mov    %rbp,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
fldz
fucomip %st(1),%st
fld    %st(0)
fchs
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
fucomi %st(1),%st
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
cmova  %eax,%r9d
cmova  %ebp,%r11d
fmul   %st,%st(1)
mov    $0x1,%ebx
fldz
fucomip %st(1),%st
jae    14be <gels+0x3ae>
movslq %edx,%rax
mov    $0x1,%ebx
xor    %r14d,%r14d
mov    0x48(%rsp),%rbp
mov    %edx,0x18(%rsp)
mov    %edx,0xc(%rsp)
xor    %r15d,%r15d
mov    %rsi,0x10(%rsp)
mov    %r13,0x38(%rsp)
nopl   0x0(%rax)
test   %r15d,%r15d
jne    1280 <gels+0x170>
xor    %r15d,%r15d
fxch   %st(1)
fucomi %st(1),%st
fstp   %st(1)
fldz
jb     1280 <gels+0x170>
fstp   %st(0)
mov    %ebx,%r15d
fldz
nopl   0x0(%rax)
fstp   %st(0)
add    %ebx,%r14d
movslq %r11d,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
fld1
fdivp  %st,%st(1)
movslq %r9d,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rsi,1)
fmul   %st(1),%st
lea    -0x1(%rbx),%rdx
mov    %rdx,%r12
shl    $0x4,%r12
fldt   (%rsi,%r12,1)
fstpt  -0x10(%rcx,%rsi,1)
fstpt  (%rsi,%r12,1)
cmp    %rax,%rbx
je     14fb <gels+0x3eb>
mov    %r15d,0x1c(%rsp)
addl   $0xffffffff,0xc(%rsp)
mov    %rbp,0x28(%rsp)
mov    %r9d,%ebp
sub    %ebx,%ebp
add    %rsi,%r12
add    %r9d,%edx
mov    %rbp,%rcx
mov    %rbp,0x40(%rsp)
imul   %ebp,%edx
mov    %edx,%r15d
shr    $0x1f,%r15d
add    %edx,%r15d
sar    %r15d
add    %r14d,%r15d
movslq %r14d,%rcx
shl    $0x4,%rcx
lea    (%rcx,%rdi,1),%r8
add    $0xfffffffffffffff0,%r8
movslq %r15d,%rcx
shl    $0x4,%rcx
lea    (%rcx,%rdi,1),%r10
add    $0xfffffffffffffff0,%r10
mov    0x28(%rsp),%rbp
mov    %rbx,0x50(%rsp)
mov    %r14,0x30(%rsp)
mov    %r14d,%edx
mov    %r15d,%ecx
jmp    1383 <gels+0x273>
nopl   0x0(%rax,%rax,1)
mov    0x40(%rsp),%rcx
add    %edx,%ecx
cmp    %r15d,%edx
cmovg  %ecx,%r14d
movslq %r14d,%r13
shl    $0x4,%r13
fldt   -0x10(%r13,%rdi,1)
movslq %edx,%rsi
add    $0xffffffffffffffff,%rsi
mov    %rsi,%rcx
shl    $0x4,%rcx
fldt   (%rdi,%rcx,1)
fstpt  -0x10(%r13,%rdi,1)
mov    0x38(%rsp),%r13
fld    %st(0)
fstpt  0x0(%rbp)
fmul   %st(1),%st
shl    $0x4,%rsi
fstpt  (%rdi,%rsi,1)
add    $0x1,%rbx
add    $0x10,%rbp
mov    %r14d,%ecx
cmp    %rbx,%r13
je     13b0 <gels+0x2a0>
add    %ebx,%edx
lea    0x1(%rcx),%r14d
cmp    %r15d,%edx
jne    1330 <gels+0x220>
fldt   (%r8)
movslq %ecx,%rcx
shl    $0x4,%rcx
fstpt  (%rdi,%rcx,1)
fldt   (%r10)
lea    -0x1(%rdx),%ecx
movslq %ecx,%rsi
jmp    1365 <gels+0x255>
cs nopw 0x0(%rax,%rax,1)
fstp   %st(0)
mov    0x40(%rsp),%rcx
mov    %ecx,0x24(%rsp)
fildl  0x24(%rsp)
fstpt  (%r8)
mov    0xc(%rsp),%r13d
fldz
xor    %r15d,%r15d
mov    0x50(%rsp),%r10
mov    0x30(%rsp),%r8
mov    0x10(%rsp),%rsi
nopl   0x0(%rax,%rax,1)
mov    %r10,%rcx
shl    $0x4,%rcx
mov    0x48(%rsp),%rdx
fldt   -0x10(%rcx,%rdx,1)
fchs
lea    0x1(%r15),%r14
mov    %r10,%rbx
mov    %r8d,%ebp
nopl   0x0(%rax)
add    %ebx,%ebp
movslq %ebp,%rdx
mov    %rdx,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
add    %r15d,%edx
movslq %edx,%rcx
shl    $0x4,%rcx
fldt   (%rdi,%rcx,1)
fxch   %st(1)
fmul   %st(2),%st
faddp  %st,%st(1)
fstpt  (%rdi,%rcx,1)
add    $0x1,%rbx
cmp    %rax,%rbx
jl     1400 <gels+0x2f0>
add    %r10d,%r8d
lea    (%r8,%r15,1),%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rdi,%rcx,1)
fldz
fucomip %st(1),%st
fld    %st(0)
fchs
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
add    $0x1,%r10
fucomi %st(2),%st
fxch   %st(2)
fcmovnbe %st(2),%st
fstp   %st(2)
cmova  %r10d,%r9d
lea    (%r14,%r8,1),%ecx
cmova  %ecx,%r11d
fldt   (%r12)
mov    0x50(%rsp),%rbx
add    %rbx,%r15
shl    $0x4,%r15
fldt   (%rsi,%r15,1)
fxch   %st(2)
fmulp  %st,%st(1)
faddp  %st,%st(1)
fstpt  (%rsi,%r15,1)
mov    %r14,%r15
cmp    %r13,%r14
jne    13e0 <gels+0x2d0>
add    $0x1,%rbx
mov    0x28(%rsp),%rbp
add    $0x10,%rbp
fldz
fucomip %st(1),%st
mov    0x38(%rsp),%r13
mov    0x1c(%rsp),%r15d
mov    0x30(%rsp),%r14
jb     1260 <gels+0x150>
fstp   %st(1)
fstp   %st(0)
fldz
fldz
fstp   %st(1)
fstp   %st(0)
lea    0xb3b(%rip),%rdi
mov    %ebx,%esi
xor    %eax,%eax
call   1030 <printf@plt>
mov    $0xffffffff,%r15d
lea    0xb50(%rip),%rdi
mov    %r15d,%esi
xor    %eax,%eax
call   1030 <printf@plt>
mov    %r15d,%eax
add    $0x58,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
fstp   %st(1)
fstp   %st(0)
mov    0x18(%rsp),%ebx
cmp    $0x2,%ebx
jge    1522 <gels+0x412>
lea    0xb0f(%rip),%rdi
xor    %esi,%esi
xor    %eax,%eax
call   1030 <printf@plt>
test   %r15d,%r15d
jne    14d8 <gels+0x3c8>
xor    %r15d,%r15d
jmp    14e9 <gels+0x3d9>
mov    %r14,%r12
lea    0x10(%rsi),%r10
mov    $0x2,%r9d
xor    %r11d,%r11d
mov    %r13,%r8
jmp    1579 <gels+0x469>
nopw   0x0(%rax,%rax,1)
fldz
fstp   %st(0)
mov    0x20(%rsp),%ecx
mov    0x10(%rsp),%rsi
add    %rsi,%rax
add    $0xffffffffffffffe0,%rax
add    %r14d,%ecx
add    $0xfffffffe,%ecx
movslq %ecx,%rcx
shl    $0x4,%rcx
fldt   (%rsi,%rcx,1)
fstpt  (%rax)
fstpt  (%rsi,%rcx,1)
lea    0x1(%r9),%eax
add    $0x1,%r11d
cmp    %ebx,%r9d
mov    %eax,%r9d
je     1518 <gels+0x408>
mov    %r8,%r14
mov    %r12,%rax
sub    %r14d,%eax
mov    %rax,%r12
cltq
shl    $0x4,%rax
fldt   -0x10(%rax,%rdi,1)
fadds  0xa6b(%rip)
fnstcw 0x8(%rsp)
movzwl 0x8(%rsp),%eax
or     $0xc00,%eax
mov    %ax,0xa(%rsp)
fldcw  0xa(%rsp)
fistpl 0x20(%rsp)
fldcw  0x8(%rsp)
add    $0xffffffffffffffff,%r8
mov    %r14,%rax
shl    $0x4,%rax
fldt   -0x20(%rax,%rsi,1)
cmp    %r13,%r14
jg     1540 <gels+0x430>
movslq %r8d,%rbp
fldz
test   $0x1,%r11b
jne    1610 <gels+0x500>
fstp   %st(0)
lea    0x1(%rbp),%rcx
lea    (%r12,%rbp,1),%esi
movslq %esi,%rdx
shl    $0x4,%rdx
fldt   -0x10(%rdx,%rdi,1)
shl    $0x4,%rbp
mov    0x10(%rsp),%rdx
fldt   (%rdx,%rbp,1)
fmulp  %st,%st(1)
fsubrp %st,%st(1)
mov    %rcx,%rbp
fld    %st(0)
test   %r11d,%r11d
jne    161e <gels+0x50e>
jmp    1542 <gels+0x432>
nopl   0x0(%rax,%rax,1)
mov    %r12d,%esi
fxch   %st(1)
test   %r11d,%r11d
je     1542 <gels+0x432>
fstp   %st(1)
mov    %rbp,%rdx
shl    $0x4,%rdx
add    %r10,%rdx
fldz
nopl   0x0(%rax)
fstp   %st(0)
add    %ebp,%esi
movslq %esi,%rcx
lea    (%rcx,%rbp,1),%esi
add    $0x1,%esi
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
fldt   -0x10(%rdx)
fmulp  %st,%st(1)
fsubrp %st,%st(1)
movslq %esi,%rcx
shl    $0x4,%rcx
fldt   -0x10(%rcx,%rdi,1)
fldt   (%rdx)
fmulp  %st,%st(1)
fsubrp %st,%st(1)
add    $0x2,%ebp
add    $0x20,%rdx
cmp    %ebp,%ebx
fldz
jne    1630 <gels+0x520>
jmp    1542 <gels+0x432>

LLVM IR (-O0):
@.str = [26 x i8] c"gels: piv <= 0 at K = %d\0A\00"
@.str.1 = [17 x i8] c"gels: LEND = %d\0A\00"
@.str.2 = [16 x i8] c"gels error %d!\0A\00"
define i32 @gels(x86_fp80* %0, x86_fp80* %1, i32 %2, x86_fp80 %3, x86_fp80* %4) {
%6 = alloca x86_fp80*
%7 = alloca x86_fp80*
%8 = alloca i32
%9 = alloca x86_fp80
%10 = alloca x86_fp80*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
%21 = alloca i32
%22 = alloca i32
%23 = alloca i32
%24 = alloca x86_fp80
%25 = alloca x86_fp80
%26 = alloca x86_fp80
%27 = alloca x86_fp80
store x86_fp80* %0, x86_fp80** %6
store x86_fp80* %1, x86_fp80** %7
store i32 %2, i32* %8
store x86_fp80 %3, x86_fp80* %9
store x86_fp80* %4, x86_fp80** %10
store i32 0, i32* %15
%28 = load i32, i32* %8
%29 = icmp sle i32 %28, 0
br i1 %29, label %30, label %32
30: ; preds = %5
br label %31
31: ; preds = %364, %89, %30
store i32 -1, i32* %15
br label %449
32: ; preds = %5
store x86_fp80 0xK00000000000000000000, x86_fp80* %25
store i32 0, i32* %11
store i32 0, i32* %12
store i32 0, i32* %14
store i32 1, i32* %13
br label %33
33: ; preds = %73, %32
%34 = load i32, i32* %13
%35 = load i32, i32* %8
%36 = icmp sle i32 %34, %35
br i1 %36, label %37, label %76
37: ; preds = %33
%38 = load i32, i32* %13
%39 = load i32, i32* %14
%40 = add nsw i32 %39, %38
store i32 %40, i32* %14
%41 = load x86_fp80*, x86_fp80** %6
%42 = load i32, i32* %14
%43 = sub nsw i32 %42, 1
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds x86_fp80, x86_fp80* %41, i64 %44
%46 = load x86_fp80, x86_fp80* %45
%47 = fcmp olt x86_fp80 %46, 0xK00000000000000000000
br i1 %47, label %48, label %56
48: ; preds = %37
%49 = load x86_fp80*, x86_fp80** %6
%50 = load i32, i32* %14
%51 = sub nsw i32 %50, 1
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds x86_fp80, x86_fp80* %49, i64 %52
%54 = load x86_fp80, x86_fp80* %53
%55 = fneg x86_fp80 %54
br label %63
56: ; preds = %37
%57 = load x86_fp80*, x86_fp80** %6
%58 = load i32, i32* %14
%59 = sub nsw i32 %58, 1
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds x86_fp80, x86_fp80* %57, i64 %60
%62 = load x86_fp80, x86_fp80* %61
br label %63
63: ; preds = %56, %48
%64 = phi x86_fp80 [ %55, %48 ], [ %62, %56 ]
store x86_fp80 %64, x86_fp80* %24
%65 = load x86_fp80, x86_fp80* %24
%66 = load x86_fp80, x86_fp80* %25
%67 = fcmp ogt x86_fp80 %65, %66
br i1 %67, label %68, label %72
68: ; preds = %63
%69 = load x86_fp80, x86_fp80* %24
store x86_fp80 %69, x86_fp80* %25
%70 = load i32, i32* %14
store i32 %70, i32* %11
%71 = load i32, i32* %13
store i32 %71, i32* %12
br label %72
72: ; preds = %68, %63
br label %73
73: ; preds = %72
%74 = load i32, i32* %13
%75 = add nsw i32 %74, 1
store i32 %75, i32* %13
br label %33
76: ; preds = %33
%77 = load x86_fp80, x86_fp80* %9
%78 = load x86_fp80, x86_fp80* %25
%79 = fmul x86_fp80 %77, %78
store x86_fp80 %79, x86_fp80* %26
store i32 0, i32* %21
%80 = load i32, i32* %8
%81 = sub nsw i32 %80, 1
store i32 %81, i32* %23
store i32 1, i32* %13
br label %82
82: ; preds = %353, %76
%83 = load i32, i32* %13
%84 = load i32, i32* %8
%85 = icmp sle i32 %83, %84
br i1 %85, label %86, label %356
86: ; preds = %82
%87 = load x86_fp80, x86_fp80* %25
%88 = fcmp ole x86_fp80 %87, 0xK00000000000000000000
br i1 %88, label %89, label %92
89: ; preds = %86
%90 = load i32, i32* %13
%91 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str, i64 0, i64 0), i32 %90)
br label %31
92: ; preds = %86
%93 = load i32, i32* %15
%94 = icmp eq i32 %93, 0
br i1 %94, label %95, label %102
95: ; preds = %92
%96 = load x86_fp80, x86_fp80* %25
%97 = load x86_fp80, x86_fp80* %26
%98 = fcmp ole x86_fp80 %96, %97
br i1 %98, label %99, label %101
99: ; preds = %95
%100 = load i32, i32* %13
store i32 %100, i32* %15
br label %101
101: ; preds = %99, %95
br label %102
102: ; preds = %101, %92
%103 = load i32, i32* %12
%104 = load i32, i32* %13
%105 = sub nsw i32 %103, %104
store i32 %105, i32* %20
%106 = load i32, i32* %13
%107 = load i32, i32* %21
%108 = add nsw i32 %107, %106
store i32 %108, i32* %21
%109 = load x86_fp80*, x86_fp80** %6
%110 = load i32, i32* %11
%111 = sub nsw i32 %110, 1
%112 = sext i32 %111 to i64
%113 = getelementptr inbounds x86_fp80, x86_fp80* %109, i64 %112
%114 = load x86_fp80, x86_fp80* %113
%115 = fdiv x86_fp80 0xK3FFF8000000000000000, %114
store x86_fp80 %115, x86_fp80* %27
%116 = load i32, i32* %13
store i32 %116, i32* %14
%117 = load i32, i32* %14
%118 = load i32, i32* %20
%119 = add nsw i32 %117, %118
store i32 %119, i32* %17
%120 = load x86_fp80, x86_fp80* %27
%121 = load x86_fp80*, x86_fp80** %7
%122 = load i32, i32* %17
%123 = sub nsw i32 %122, 1
%124 = sext i32 %123 to i64
%125 = getelementptr inbounds x86_fp80, x86_fp80* %121, i64 %124
%126 = load x86_fp80, x86_fp80* %125
%127 = fmul x86_fp80 %120, %126
store x86_fp80 %127, x86_fp80* %24
%128 = load x86_fp80*, x86_fp80** %7
%129 = load i32, i32* %14
%130 = sub nsw i32 %129, 1
%131 = sext i32 %130 to i64
%132 = getelementptr inbounds x86_fp80, x86_fp80* %128, i64 %131
%133 = load x86_fp80, x86_fp80* %132
%134 = load x86_fp80*, x86_fp80** %7
%135 = load i32, i32* %17
%136 = sub nsw i32 %135, 1
%137 = sext i32 %136 to i64
%138 = getelementptr inbounds x86_fp80, x86_fp80* %134, i64 %137
store x86_fp80 %133, x86_fp80* %138
%139 = load x86_fp80, x86_fp80* %24
%140 = load x86_fp80*, x86_fp80** %7
%141 = load i32, i32* %14
%142 = sub nsw i32 %141, 1
%143 = sext i32 %142 to i64
%144 = getelementptr inbounds x86_fp80, x86_fp80* %140, i64 %143
store x86_fp80 %139, x86_fp80* %144
%145 = load i32, i32* %13
%146 = load i32, i32* %8
%147 = icmp sge i32 %145, %146
br i1 %147, label %148, label %149
148: ; preds = %102
br label %356
149: ; preds = %102
%150 = load i32, i32* %21
%151 = load i32, i32* %20
%152 = load i32, i32* %13
%153 = load i32, i32* %12
%154 = add nsw i32 %152, %153
%155 = sub nsw i32 %154, 1
%156 = mul nsw i32 %151, %155
%157 = sdiv i32 %156, 2
%158 = add nsw i32 %150, %157
store i32 %158, i32* %19
%159 = load i32, i32* %19
store i32 %159, i32* %17
%160 = load i32, i32* %21
store i32 %160, i32* %14
%161 = load i32, i32* %13
store i32 %161, i32* %16
br label %162
162: ; preds = %234, %149
%163 = load i32, i32* %16
%164 = load i32, i32* %23
%165 = icmp sle i32 %163, %164
br i1 %165, label %166, label %237
166: ; preds = %162
%167 = load i32, i32* %16
%168 = load i32, i32* %14
%169 = add nsw i32 %168, %167
store i32 %169, i32* %14
%170 = load i32, i32* %17
%171 = add nsw i32 %170, 1
store i32 %171, i32* %17
%172 = load i32, i32* %14
%173 = load i32, i32* %19
%174 = icmp eq i32 %172, %173
br i1 %174, label %175, label %193
175: ; preds = %166
%176 = load x86_fp80*, x86_fp80** %6
%177 = load i32, i32* %21
%178 = sub nsw i32 %177, 1
%179 = sext i32 %178 to i64
%180 = getelementptr inbounds x86_fp80, x86_fp80* %176, i64 %179
%181 = load x86_fp80, x86_fp80* %180
%182 = load x86_fp80*, x86_fp80** %6
%183 = load i32, i32* %17
%184 = sub nsw i32 %183, 1
%185 = sext i32 %184 to i64
%186 = getelementptr inbounds x86_fp80, x86_fp80* %182, i64 %185
store x86_fp80 %181, x86_fp80* %186
%187 = load x86_fp80*, x86_fp80** %6
%188 = load i32, i32* %14
%189 = sub nsw i32 %188, 1
%190 = sext i32 %189 to i64
%191 = getelementptr inbounds x86_fp80, x86_fp80* %187, i64 %190
%192 = load x86_fp80, x86_fp80* %191
store x86_fp80 %192, x86_fp80* %24
br label %219
193: ; preds = %166
%194 = load i32, i32* %14
%195 = load i32, i32* %19
%196 = icmp sgt i32 %194, %195
br i1 %196, label %197, label %201
197: ; preds = %193
%198 = load i32, i32* %14
%199 = load i32, i32* %20
%200 = add nsw i32 %198, %199
store i32 %200, i32* %17
br label %201
201: ; preds = %197, %193
%202 = load x86_fp80*, x86_fp80** %6
%203 = load i32, i32* %17
%204 = sub nsw i32 %203, 1
%205 = sext i32 %204 to i64
%206 = getelementptr inbounds x86_fp80, x86_fp80* %202, i64 %205
%207 = load x86_fp80, x86_fp80* %206
store x86_fp80 %207, x86_fp80* %24
%208 = load x86_fp80*, x86_fp80** %6
%209 = load i32, i32* %14
%210 = sub nsw i32 %209, 1
%211 = sext i32 %210 to i64
%212 = getelementptr inbounds x86_fp80, x86_fp80* %208, i64 %211
%213 = load x86_fp80, x86_fp80* %212
%214 = load x86_fp80*, x86_fp80** %6
%215 = load i32, i32* %17
%216 = sub nsw i32 %215, 1
%217 = sext i32 %216 to i64
%218 = getelementptr inbounds x86_fp80, x86_fp80* %214, i64 %217
store x86_fp80 %213, x86_fp80* %218
br label %219
219: ; preds = %201, %175
%220 = load x86_fp80, x86_fp80* %24
%221 = load x86_fp80*, x86_fp80** %10
%222 = load i32, i32* %16
%223 = sub nsw i32 %222, 1
%224 = sext i32 %223 to i64
%225 = getelementptr inbounds x86_fp80, x86_fp80* %221, i64 %224
store x86_fp80 %220, x86_fp80* %225
%226 = load x86_fp80, x86_fp80* %27
%227 = load x86_fp80, x86_fp80* %24
%228 = fmul x86_fp80 %226, %227
%229 = load x86_fp80*, x86_fp80** %6
%230 = load i32, i32* %14
%231 = sub nsw i32 %230, 1
%232 = sext i32 %231 to i64
%233 = getelementptr inbounds x86_fp80, x86_fp80* %229, i64 %232
store x86_fp80 %228, x86_fp80* %233
br label %234
234: ; preds = %219
%235 = load i32, i32* %16
%236 = add nsw i32 %235, 1
store i32 %236, i32* %16
br label %162
237: ; preds = %162
%238 = load i32, i32* %20
%239 = sitofp i32 %238 to x86_fp80
%240 = load x86_fp80*, x86_fp80** %6
%241 = load i32, i32* %21
%242 = sub nsw i32 %241, 1
%243 = sext i32 %242 to i64
%244 = getelementptr inbounds x86_fp80, x86_fp80* %240, i64 %243
store x86_fp80 %239, x86_fp80* %244
store x86_fp80 0xK00000000000000000000, x86_fp80* %25
%245 = load i32, i32* %21
store i32 %245, i32* %22
store i32 0, i32* %20
%246 = load i32, i32* %13
store i32 %246, i32* %16
br label %247
247: ; preds = %349, %237
%248 = load i32, i32* %16
%249 = load i32, i32* %23
%250 = icmp sle i32 %248, %249
br i1 %250, label %251, label %352
251: ; preds = %247
%252 = load x86_fp80*, x86_fp80** %10
%253 = load i32, i32* %16
%254 = sub nsw i32 %253, 1
%255 = sext i32 %254 to i64
%256 = getelementptr inbounds x86_fp80, x86_fp80* %252, i64 %255
%257 = load x86_fp80, x86_fp80* %256
%258 = fneg x86_fp80 %257
store x86_fp80 %258, x86_fp80* %27
%259 = load i32, i32* %22
store i32 %259, i32* %17
%260 = load i32, i32* %20
%261 = add nsw i32 %260, 1
store i32 %261, i32* %20
%262 = load i32, i32* %16
store i32 %262, i32* %18
br label %263
263: ; preds = %288, %251
%264 = load i32, i32* %18
%265 = load i32, i32* %23
%266 = icmp sle i32 %264, %265
br i1 %266, label %267, label %291
267: ; preds = %263
%268 = load i32, i32* %18
%269 = load i32, i32* %17
%270 = add nsw i32 %269, %268
store i32 %270, i32* %17
%271 = load i32, i32* %17
%272 = load i32, i32* %20
%273 = add nsw i32 %271, %272
store i32 %273, i32* %14
%274 = load x86_fp80, x86_fp80* %27
%275 = load x86_fp80*, x86_fp80** %6
%276 = load i32, i32* %17
%277 = sub nsw i32 %276, 1
%278 = sext i32 %277 to i64
%279 = getelementptr inbounds x86_fp80, x86_fp80* %275, i64 %278
%280 = load x86_fp80, x86_fp80* %279
%281 = load x86_fp80*, x86_fp80** %6
%282 = load i32, i32* %14
%283 = sub nsw i32 %282, 1
%284 = sext i32 %283 to i64
%285 = getelementptr inbounds x86_fp80, x86_fp80* %281, i64 %284
%286 = load x86_fp80, x86_fp80* %285
%287 = call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %274, x86_fp80 %280, x86_fp80 %286)
store x86_fp80 %287, x86_fp80* %285
br label %288
288: ; preds = %267
%289 = load i32, i32* %18
%290 = add nsw i32 %289, 1
store i32 %290, i32* %18
br label %263
291: ; preds = %263
%292 = load i32, i32* %16
%293 = load i32, i32* %22
%294 = add nsw i32 %293, %292
store i32 %294, i32* %22
%295 = load i32, i32* %22
%296 = load i32, i32* %20
%297 = add nsw i32 %295, %296
store i32 %297, i32* %19
%298 = load x86_fp80*, x86_fp80** %6
%299 = load i32, i32* %19
%300 = sub nsw i32 %299, 1
%301 = sext i32 %300 to i64
%302 = getelementptr inbounds x86_fp80, x86_fp80* %298, i64 %301
%303 = load x86_fp80, x86_fp80* %302
%304 = fcmp olt x86_fp80 %303, 0xK00000000000000000000
br i1 %304, label %305, label %313
305: ; preds = %291
%306 = load x86_fp80*, x86_fp80** %6
%307 = load i32, i32* %19
%308 = sub nsw i32 %307, 1
%309 = sext i32 %308 to i64
%310 = getelementptr inbounds x86_fp80, x86_fp80* %306, i64 %309
%311 = load x86_fp80, x86_fp80* %310
%312 = fneg x86_fp80 %311
br label %320
313: ; preds = %291
%314 = load x86_fp80*, x86_fp80** %6
%315 = load i32, i32* %19
%316 = sub nsw i32 %315, 1
%317 = sext i32 %316 to i64
%318 = getelementptr inbounds x86_fp80, x86_fp80* %314, i64 %317
%319 = load x86_fp80, x86_fp80* %318
br label %320
320: ; preds = %313, %305
%321 = phi x86_fp80 [ %312, %305 ], [ %319, %313 ]
store x86_fp80 %321, x86_fp80* %24
%322 = load x86_fp80, x86_fp80* %24
%323 = load x86_fp80, x86_fp80* %25
%324 = fcmp ogt x86_fp80 %322, %323
br i1 %324, label %325, label %330
325: ; preds = %320
%326 = load x86_fp80, x86_fp80* %24
store x86_fp80 %326, x86_fp80* %25
%327 = load i32, i32* %19
store i32 %327, i32* %11
%328 = load i32, i32* %16
%329 = add nsw i32 %328, 1
store i32 %329, i32* %12
br label %330
330: ; preds = %325, %320
%331 = load i32, i32* %13
store i32 %331, i32* %19
%332 = load i32, i32* %19
%333 = load i32, i32* %20
%334 = add nsw i32 %332, %333
store i32 %334, i32* %17
%335 = load x86_fp80, x86_fp80* %27
%336 = load x86_fp80*, x86_fp80** %7
%337 = load i32, i32* %19
%338 = sub nsw i32 %337, 1
%339 = sext i32 %338 to i64
%340 = getelementptr inbounds x86_fp80, x86_fp80* %336, i64 %339
%341 = load x86_fp80, x86_fp80* %340
%342 = load x86_fp80*, x86_fp80** %7
%343 = load i32, i32* %17
%344 = sub nsw i32 %343, 1
%345 = sext i32 %344 to i64
%346 = getelementptr inbounds x86_fp80, x86_fp80* %342, i64 %345
%347 = load x86_fp80, x86_fp80* %346
%348 = call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %335, x86_fp80 %341, x86_fp80 %347)
store x86_fp80 %348, x86_fp80* %346
br label %349
349: ; preds = %330
%350 = load i32, i32* %16
%351 = add nsw i32 %350, 1
store i32 %351, i32* %16
br label %247
352: ; preds = %247
br label %353
353: ; preds = %352
%354 = load i32, i32* %13
%355 = add nsw i32 %354, 1
store i32 %355, i32* %13
br label %82
356: ; preds = %148, %82
%357 = load i32, i32* %23
%358 = icmp sle i32 %357, 0
br i1 %358, label %359, label %366
359: ; preds = %356
%360 = load i32, i32* %23
%361 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([17 x i8], [17 x i8]* @.str.1, i64 0, i64 0), i32 %360)
%362 = load i32, i32* %23
%363 = icmp slt i32 %362, 0
br i1 %363, label %364, label %365
364: ; preds = %359
br label %31
365: ; preds = %359
br label %449
366: ; preds = %356
%367 = load i32, i32* %8
store i32 %367, i32* %16
store i32 2, i32* %11
br label %368
368: ; preds = %445, %366
%369 = load i32, i32* %11
%370 = load i32, i32* %8
%371 = icmp sle i32 %369, %370
br i1 %371, label %372, label %448
372: ; preds = %368
%373 = load i32, i32* %16
%374 = load i32, i32* %21
%375 = sub nsw i32 %374, %373
store i32 %375, i32* %21
%376 = load i32, i32* %16
%377 = sub nsw i32 %376, 1
store i32 %377, i32* %16
%378 = load x86_fp80*, x86_fp80** %6
%379 = load i32, i32* %21
%380 = sub nsw i32 %379, 1
%381 = sext i32 %380 to i64
%382 = getelementptr inbounds x86_fp80, x86_fp80* %378, i64 %381
%383 = load x86_fp80, x86_fp80* %382
%384 = fadd x86_fp80 %383, 0xK3FFE8000000000000000
%385 = fptosi x86_fp80 %384 to i32
store i32 %385, i32* %14
%386 = load i32, i32* %16
store i32 %386, i32* %12
%387 = load x86_fp80*, x86_fp80** %7
%388 = load i32, i32* %12
%389 = sub nsw i32 %388, 1
%390 = sext i32 %389 to i64
%391 = getelementptr inbounds x86_fp80, x86_fp80* %387, i64 %390
%392 = load x86_fp80, x86_fp80* %391
store x86_fp80 %392, x86_fp80* %24
%393 = load i32, i32* %12
store i32 %393, i32* %17
%394 = load i32, i32* %21
store i32 %394, i32* %13
%395 = load i32, i32* %16
store i32 %395, i32* %20
br label %396
396: ; preds = %421, %372
%397 = load i32, i32* %20
%398 = load i32, i32* %23
%399 = icmp sle i32 %397, %398
br i1 %399, label %400, label %424
400: ; preds = %396
%401 = load i32, i32* %17
%402 = add nsw i32 %401, 1
store i32 %402, i32* %17
%403 = load i32, i32* %20
%404 = load i32, i32* %13
%405 = add nsw i32 %404, %403
store i32 %405, i32* %13
%406 = load x86_fp80*, x86_fp80** %6
%407 = load i32, i32* %13
%408 = sub nsw i32 %407, 1
%409 = sext i32 %408 to i64
%410 = getelementptr inbounds x86_fp80, x86_fp80* %406, i64 %409
%411 = load x86_fp80, x86_fp80* %410
%412 = load x86_fp80*, x86_fp80** %7
%413 = load i32, i32* %17
%414 = sub nsw i32 %413, 1
%415 = sext i32 %414 to i64
%416 = getelementptr inbounds x86_fp80, x86_fp80* %412, i64 %415
%417 = load x86_fp80, x86_fp80* %416
%418 = load x86_fp80, x86_fp80* %24
%419 = fneg x86_fp80 %411
%420 = call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %419, x86_fp80 %417, x86_fp80 %418)
store x86_fp80 %420, x86_fp80* %24
br label %421
421: ; preds = %400
%422 = load i32, i32* %20
%423 = add nsw i32 %422, 1
store i32 %423, i32* %20
br label %396
424: ; preds = %396
%425 = load i32, i32* %12
%426 = load i32, i32* %14
%427 = add nsw i32 %425, %426
store i32 %427, i32* %13
%428 = load x86_fp80*, x86_fp80** %7
%429 = load i32, i32* %13
%430 = sub nsw i32 %429, 1
%431 = sext i32 %430 to i64
%432 = getelementptr inbounds x86_fp80, x86_fp80* %428, i64 %431
%433 = load x86_fp80, x86_fp80* %432
%434 = load x86_fp80*, x86_fp80** %7
%435 = load i32, i32* %12
%436 = sub nsw i32 %435, 1
%437 = sext i32 %436 to i64
%438 = getelementptr inbounds x86_fp80, x86_fp80* %434, i64 %437
store x86_fp80 %433, x86_fp80* %438
%439 = load x86_fp80, x86_fp80* %24
%440 = load x86_fp80*, x86_fp80** %7
%441 = load i32, i32* %13
%442 = sub nsw i32 %441, 1
%443 = sext i32 %442 to i64
%444 = getelementptr inbounds x86_fp80, x86_fp80* %440, i64 %443
store x86_fp80 %439, x86_fp80* %444
br label %445
445: ; preds = %424
%446 = load i32, i32* %11
%447 = add nsw i32 %446, 1
store i32 %447, i32* %11
br label %368
448: ; preds = %368
br label %449
449: ; preds = %448, %365, %31
%450 = load i32, i32* %15
%451 = icmp ne i32 %450, 0
br i1 %451, label %452, label %455
452: ; preds = %449
%453 = load i32, i32* %15
%454 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.2, i64 0, i64 0), i32 %453)
br label %455
455: ; preds = %452, %449
%456 = load i32, i32* %15
ret i32 %456
}

LLVM IR (-O2):
@.str = [26 x i8] c"gels: piv <= 0 at K = %d\0A\00"
@.str.1 = [17 x i8] c"gels: LEND = %d\0A\00"
@.str.2 = [16 x i8] c"gels error %d!\0A\00"
define i32 @gels(x86_fp80* nocapture %0, x86_fp80* nocapture %1, i32 %2, x86_fp80 %3, x86_fp80* nocapture %4) {
%6 = icmp slt i32 %2, 1
br i1 %6, label %317, label %7
7: ; preds = %5
%8 = zext i32 %2 to i64
%9 = and i64 %8, 1
%10 = icmp eq i32 %2, 1
br i1 %10, label %52, label %11
11: ; preds = %7
%12 = and i64 %8, 4294967294
br label %13
13: ; preds = %13, %11
%14 = phi i64 [ 1, %11 ], [ %47, %13 ]
%15 = phi i32 [ 0, %11 ], [ %46, %13 ]
%16 = phi i32 [ 0, %11 ], [ %45, %13 ]
%17 = phi x86_fp80 [ 0xK00000000000000000000, %11 ], [ %44, %13 ]
%18 = phi i32 [ 0, %11 ], [ %35, %13 ]
%19 = phi i64 [ 0, %11 ], [ %48, %13 ]
%20 = trunc i64 %14 to i32
%21 = add nuw nsw i32 %18, %20
%22 = add nsw i32 %21, -1
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %23
%25 = load x86_fp80, x86_fp80* %24
%26 = fcmp olt x86_fp80 %25, 0xK00000000000000000000
%27 = fneg x86_fp80 %25
%28 = select i1 %26, x86_fp80 %27, x86_fp80 %25
%29 = fcmp ogt x86_fp80 %28, %17
%30 = select i1 %29, x86_fp80 %28, x86_fp80 %17
%31 = select i1 %29, i32 %20, i32 %16
%32 = select i1 %29, i32 %21, i32 %15
%33 = trunc i64 %14 to i32
%34 = add i32 %33, 1
%35 = add nuw nsw i32 %21, %34
%36 = add i32 %21, %33
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %37
%39 = load x86_fp80, x86_fp80* %38
%40 = fcmp olt x86_fp80 %39, 0xK00000000000000000000
%41 = fneg x86_fp80 %39
%42 = select i1 %40, x86_fp80 %41, x86_fp80 %39
%43 = fcmp ogt x86_fp80 %42, %30
%44 = select i1 %43, x86_fp80 %42, x86_fp80 %30
%45 = select i1 %43, i32 %34, i32 %31
%46 = select i1 %43, i32 %35, i32 %32
%47 = add nuw nsw i64 %14, 2
%48 = add i64 %19, 2
%49 = icmp eq i64 %48, %12
br i1 %49, label %50, label %13
50: ; preds = %13
%51 = trunc i64 %47 to i32
br label %52
52: ; preds = %50, %7
%53 = phi x86_fp80 [ undef, %7 ], [ %44, %50 ]
%54 = phi i32 [ undef, %7 ], [ %45, %50 ]
%55 = phi i32 [ undef, %7 ], [ %46, %50 ]
%56 = phi i32 [ 1, %7 ], [ %51, %50 ]
%57 = phi i32 [ 0, %7 ], [ %46, %50 ]
%58 = phi i32 [ 0, %7 ], [ %45, %50 ]
%59 = phi x86_fp80 [ 0xK00000000000000000000, %7 ], [ %44, %50 ]
%60 = phi i32 [ 0, %7 ], [ %35, %50 ]
%61 = icmp eq i64 %9, 0
br i1 %61, label %75, label %62
62: ; preds = %52
%63 = add nuw nsw i32 %60, %56
%64 = add nsw i32 %63, -1
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %65
%67 = load x86_fp80, x86_fp80* %66
%68 = fcmp olt x86_fp80 %67, 0xK00000000000000000000
%69 = fneg x86_fp80 %67
%70 = select i1 %68, x86_fp80 %69, x86_fp80 %67
%71 = fcmp ogt x86_fp80 %70, %59
%72 = select i1 %71, x86_fp80 %70, x86_fp80 %59
%73 = select i1 %71, i32 %56, i32 %58
%74 = select i1 %71, i32 %63, i32 %57
br label %75
75: ; preds = %52, %62
%76 = phi x86_fp80 [ %53, %52 ], [ %72, %62 ]
%77 = phi i32 [ %54, %52 ], [ %73, %62 ]
%78 = phi i32 [ %55, %52 ], [ %74, %62 ]
%79 = fmul x86_fp80 %76, %3
%80 = sext i32 %2 to i64
%81 = zext i32 %2 to i64
%82 = fcmp ugt x86_fp80 %76, 0xK00000000000000000000
br i1 %82, label %88, label %85
83: ; preds = %227
%84 = trunc i64 %228 to i32
br label %85
85: ; preds = %83, %75
%86 = phi i32 [ %84, %83 ], [ 1, %75 ]
%87 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([26 x i8], [26 x i8]* @.str, i64 0, i64 0), i32 %86)
br label %317
88: ; preds = %75, %227
%89 = phi i32 [ %96, %227 ], [ %2, %75 ]
%90 = phi i32 [ %106, %227 ], [ 0, %75 ]
%91 = phi i32 [ %103, %227 ], [ 0, %75 ]
%92 = phi x86_fp80 [ %217, %227 ], [ %76, %75 ]
%93 = phi i32 [ %219, %227 ], [ %77, %75 ]
%94 = phi i32 [ %220, %227 ], [ %78, %75 ]
%95 = phi i64 [ %228, %227 ], [ 1, %75 ]
%96 = add i32 %89, -1
%97 = icmp eq i32 %91, 0
br i1 %97, label %98, label %102
98: ; preds = %88
%99 = fcmp ugt x86_fp80 %92, %79
br i1 %99, label %102, label %100
100: ; preds = %98
%101 = trunc i64 %95 to i32
br label %102
102: ; preds = %98, %100, %88
%103 = phi i32 [ %101, %100 ], [ 0, %98 ], [ %91, %88 ]
%104 = trunc i64 %95 to i32
%105 = sub nsw i32 %93, %104
%106 = add nuw nsw i32 %90, %104
%107 = add nsw i32 %94, -1
%108 = sext i32 %107 to i64
%109 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %108
%110 = load x86_fp80, x86_fp80* %109
%111 = fdiv x86_fp80 0xK3FFF8000000000000000, %110
%112 = add nsw i32 %93, -1
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %113
%115 = load x86_fp80, x86_fp80* %114
%116 = fmul x86_fp80 %111, %115
%117 = add nsw i64 %95, -1
%118 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %117
%119 = load x86_fp80, x86_fp80* %118
store x86_fp80 %119, x86_fp80* %114
store x86_fp80 %116, x86_fp80* %118
%120 = icmp eq i64 %95, %80
br i1 %120, label %230, label %121
121: ; preds = %102
%122 = trunc i64 %117 to i32
%123 = add i32 %93, %122
%124 = mul nsw i32 %105, %123
%125 = sdiv i32 %124, 2
%126 = add nsw i32 %125, %106
%127 = add nsw i32 %106, -1
%128 = sext i32 %127 to i64
%129 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %128
%130 = add nsw i32 %126, -1
%131 = sext i32 %130 to i64
%132 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %131
br label %133
133: ; preds = %121, %160
%134 = phi i64 [ %95, %121 ], [ %168, %160 ]
%135 = phi i32 [ %106, %121 ], [ %138, %160 ]
%136 = phi i32 [ %126, %121 ], [ %162, %160 ]
%137 = trunc i64 %134 to i32
%138 = add nuw nsw i32 %135, %137
%139 = add nsw i32 %136, 1
%140 = icmp eq i32 %138, %126
br i1 %140, label %141, label %148
141: ; preds = %133
%142 = load x86_fp80, x86_fp80* %129
%143 = sext i32 %136 to i64
%144 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %143
store x86_fp80 %142, x86_fp80* %144
%145 = load x86_fp80, x86_fp80* %132
%146 = add nsw i32 %138, -1
%147 = sext i32 %146 to i64
br label %160
148: ; preds = %133
%149 = icmp sgt i32 %138, %126
%150 = add nsw i32 %138, %105
%151 = select i1 %149, i32 %150, i32 %139
%152 = add nsw i32 %151, -1
%153 = sext i32 %152 to i64
%154 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %153
%155 = load x86_fp80, x86_fp80* %154
%156 = add nsw i32 %138, -1
%157 = sext i32 %156 to i64
%158 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %157
%159 = load x86_fp80, x86_fp80* %158
store x86_fp80 %159, x86_fp80* %154
br label %160
160: ; preds = %148, %141
%161 = phi i64 [ %157, %148 ], [ %147, %141 ]
%162 = phi i32 [ %151, %148 ], [ %139, %141 ]
%163 = phi x86_fp80 [ %155, %148 ], [ %145, %141 ]
%164 = add nsw i64 %134, -1
%165 = getelementptr inbounds x86_fp80, x86_fp80* %4, i64 %164
store x86_fp80 %163, x86_fp80* %165
%166 = fmul x86_fp80 %111, %163
%167 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %161
store x86_fp80 %166, x86_fp80* %167
%168 = add nuw nsw i64 %134, 1
%169 = icmp eq i64 %168, %81
br i1 %169, label %170, label %133
170: ; preds = %160
%171 = sitofp i32 %105 to x86_fp80
store x86_fp80 %171, x86_fp80* %129
%172 = zext i32 %96 to i64
br label %173
173: ; preds = %202, %170
%174 = phi i64 [ 0, %170 ], [ %184, %202 ]
%175 = phi i64 [ %95, %170 ], [ %216, %202 ]
%176 = phi i32 [ %94, %170 ], [ %220, %202 ]
%177 = phi i32 [ %93, %170 ], [ %219, %202 ]
%178 = phi x86_fp80 [ 0xK00000000000000000000, %170 ], [ %217, %202 ]
%179 = phi i32 [ %106, %170 ], [ %205, %202 ]
%180 = add nsw i64 %175, -1
%181 = getelementptr inbounds x86_fp80, x86_fp80* %4, i64 %180
%182 = load x86_fp80, x86_fp80* %181
%183 = fneg x86_fp80 %182
%184 = add nuw nsw i64 %174, 1
%185 = trunc i64 %174 to i32
br label %186
186: ; preds = %173, %186
%187 = phi i64 [ %175, %173 ], [ %200, %186 ]
%188 = phi i32 [ %179, %173 ], [ %190, %186 ]
%189 = trunc i64 %187 to i32
%190 = add nuw nsw i32 %188, %189
%191 = add nsw i32 %190, -1
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %192
%194 = load x86_fp80, x86_fp80* %193
%195 = add nuw i32 %190, %185
%196 = sext i32 %195 to i64
%197 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %196
%198 = load x86_fp80, x86_fp80* %197
%199 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %183, x86_fp80 %194, x86_fp80 %198)
store x86_fp80 %199, x86_fp80* %197
%200 = add nuw nsw i64 %187, 1
%201 = icmp slt i64 %200, %80
br i1 %201, label %186, label %202
202: ; preds = %186
%203 = trunc i64 %174 to i32
%204 = trunc i64 %175 to i32
%205 = add nuw nsw i32 %179, %204
%206 = trunc i64 %184 to i32
%207 = add nuw nsw i32 %205, %206
%208 = add nuw i32 %205, %203
%209 = sext i32 %208 to i64
%210 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %209
%211 = load x86_fp80, x86_fp80* %210
%212 = fcmp olt x86_fp80 %211, 0xK00000000000000000000
%213 = fneg x86_fp80 %211
%214 = select i1 %212, x86_fp80 %213, x86_fp80 %211
%215 = fcmp ogt x86_fp80 %214, %178
%216 = add nuw nsw i64 %175, 1
%217 = select i1 %215, x86_fp80 %214, x86_fp80 %178
%218 = trunc i64 %216 to i32
%219 = select i1 %215, i32 %218, i32 %177
%220 = select i1 %215, i32 %207, i32 %176
%221 = load x86_fp80, x86_fp80* %118
%222 = add nuw nsw i64 %174, %95
%223 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %222
%224 = load x86_fp80, x86_fp80* %223
%225 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %183, x86_fp80 %221, x86_fp80 %224)
store x86_fp80 %225, x86_fp80* %223
%226 = icmp eq i64 %184, %172
br i1 %226, label %227, label %173
227: ; preds = %202
%228 = add nuw nsw i64 %95, 1
%229 = fcmp ugt x86_fp80 %217, 0xK00000000000000000000
br i1 %229, label %88, label %83
230: ; preds = %102
%231 = icmp slt i32 %2, 2
br i1 %231, label %234, label %232
232: ; preds = %230
%233 = zext i32 %2 to i64
br label %236
234: ; preds = %230
%235 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([17 x i8], [17 x i8]* @.str.1, i64 0, i64 0), i32 0)
br label %315
236: ; preds = %232, %305
%237 = phi i32 [ 0, %232 ], [ %314, %305 ]
%238 = phi i64 [ %233, %232 ], [ %245, %305 ]
%239 = phi i32 [ %2, %232 ], [ %242, %305 ]
%240 = phi i32 [ 2, %232 ], [ %312, %305 ]
%241 = phi i32 [ %106, %232 ], [ %244, %305 ]
%242 = add i32 %239, -1
%243 = trunc i64 %238 to i32
%244 = sub nsw i32 %241, %243
%245 = add nsw i64 %238, -1
%246 = add nsw i32 %244, -1
%247 = sext i32 %246 to i64
%248 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %247
%249 = load x86_fp80, x86_fp80* %248
%250 = fadd x86_fp80 %249, 0xK3FFE8000000000000000
%251 = fptosi x86_fp80 %250 to i32
%252 = add nsw i64 %238, -2
%253 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %252
%254 = load x86_fp80, x86_fp80* %253
%255 = icmp sgt i64 %238, %233
br i1 %255, label %305, label %256
256: ; preds = %236
%257 = sext i32 %242 to i64
%258 = and i32 %237, 1
%259 = icmp eq i32 %258, 0
br i1 %259, label %260, label %271
260: ; preds = %256
%261 = add nsw i64 %257, 1
%262 = add nsw i32 %244, %242
%263 = add nsw i32 %262, -1
%264 = sext i32 %263 to i64
%265 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %264
%266 = load x86_fp80, x86_fp80* %265
%267 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %257
%268 = load x86_fp80, x86_fp80* %267
%269 = fneg x86_fp80 %266
%270 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %269, x86_fp80 %268, x86_fp80 %254)
br label %271
271: ; preds = %260, %256
%272 = phi x86_fp80 [ undef, %256 ], [ %270, %260 ]
%273 = phi i64 [ %257, %256 ], [ %261, %260 ]
%274 = phi i32 [ %244, %256 ], [ %262, %260 ]
%275 = phi x86_fp80 [ %254, %256 ], [ %270, %260 ]
%276 = icmp eq i32 %237, 0
br i1 %276, label %305, label %277
277: ; preds = %271, %277
%278 = phi i64 [ %292, %277 ], [ %273, %271 ]
%279 = phi i32 [ %294, %277 ], [ %274, %271 ]
%280 = phi x86_fp80 [ %302, %277 ], [ %275, %271 ]
%281 = add nsw i64 %278, 1
%282 = trunc i64 %278 to i32
%283 = add nsw i32 %279, %282
%284 = add nsw i32 %283, -1
%285 = sext i32 %284 to i64
%286 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %285
%287 = load x86_fp80, x86_fp80* %286
%288 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %278
%289 = load x86_fp80, x86_fp80* %288
%290 = fneg x86_fp80 %287
%291 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %290, x86_fp80 %289, x86_fp80 %280)
%292 = add nsw i64 %278, 2
%293 = trunc i64 %281 to i32
%294 = add nsw i32 %283, %293
%295 = add nsw i32 %294, -1
%296 = sext i32 %295 to i64
%297 = getelementptr inbounds x86_fp80, x86_fp80* %0, i64 %296
%298 = load x86_fp80, x86_fp80* %297
%299 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %281
%300 = load x86_fp80, x86_fp80* %299
%301 = fneg x86_fp80 %298
%302 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %301, x86_fp80 %300, x86_fp80 %291)
%303 = trunc i64 %292 to i32
%304 = icmp eq i32 %303, %2
br i1 %304, label %305, label %277
305: ; preds = %271, %277, %236
%306 = phi x86_fp80 [ %254, %236 ], [ %272, %271 ], [ %302, %277 ]
%307 = add i32 %243, -2
%308 = add i32 %307, %251
%309 = sext i32 %308 to i64
%310 = getelementptr inbounds x86_fp80, x86_fp80* %1, i64 %309
%311 = load x86_fp80, x86_fp80* %310
store x86_fp80 %311, x86_fp80* %253
store x86_fp80 %306, x86_fp80* %310
%312 = add nuw i32 %240, 1
%313 = icmp eq i32 %240, %2
%314 = add i32 %237, 1
br i1 %313, label %315, label %236
315: ; preds = %305, %234
%316 = icmp eq i32 %103, 0
br i1 %316, label %320, label %317
317: ; preds = %85, %5, %315
%318 = phi i32 [ %103, %315 ], [ -1, %5 ], [ -1, %85 ]
%319 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([16 x i8], [16 x i8]* @.str.2, i64 0, i64 0), i32 %318)
br label %320
320: ; preds = %317, %315
%321 = phi i32 [ %318, %317 ], [ 0, %315 ]
ret i32 %321
}