#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double fabs(double);
int floor(double);
int dlacon_(int *n, double *v, double *x, int *isgn, double *est, int *kase) {
  int c__1 = 1;
  double one = 1.;
  static int iter;
  static int jump, jlast;
  static double altsgn, estold;
  static int i, j;
  double temp;
  extern int dcopy_(int *, double *, int *, double *, int *);
  extern int idamax_(int *, double *, int *);
  extern double dasum_(int *, double *, int *);
  if (*kase == 0) {
    for (i = 0; i < *n; ++i)
      x[i] = 1. / (double)(*n);
    *kase = 1;
    jump = 1;
    return 0;
  }
  switch (jump) {
  case 1:
    goto L20;
  case 2:
    goto L40;
  case 3:
    goto L70;
  case 4:
    goto L110;
  case 5:
    goto L140;
  }
L20:
  if (*n == 1) {
    v[0] = x[0];
    *est = fabs(v[0]);
    goto L150;
  }
  *est = dasum_(n, x, &c__1);
  for (i = 0; i < *n; ++i) {
    x[i] = (x[i] >= 0 ? fabs(one) : -fabs(one));
    isgn[i] = (x[i] >= 0 ? floor(x[i] + .5) : -floor(.5 - x[i]));
  }
  *kase = 2;
  jump = 2;
  return 0;
L40:
  j = idamax_(n, &x[0], &c__1);
  --j;
  iter = 2;
L50:
  for (i = 0; i < *n; ++i)
    x[i] = 0.;
  x[j] = 1.;
  *kase = 1;
  jump = 3;
  return 0;
L70:
  dcopy_(n, &x[0], &c__1, &v[0], &c__1);
  estold = *est;
  *est = dasum_(n, v, &c__1);
  for (i = 0; i < *n; ++i)
    if (((x[i] >= 0 ? fabs(one) : -fabs(one)) >= 0
             ? floor((x[i] >= 0 ? fabs(one) : -fabs(one)) + .5)
             : -floor(.5 - (x[i] >= 0 ? fabs(one) : -fabs(one)))) != isgn[i])
      goto L90;
  goto L120;
L90:
  if (*est <= estold)
    goto L120;
  for (i = 0; i < *n; ++i) {
    x[i] = (x[i] >= 0 ? fabs(one) : -fabs(one));
    isgn[i] = (x[i] >= 0 ? floor(x[i] + .5) : -floor(.5 - x[i]));
  }
  *kase = 2;
  jump = 4;
  return 0;
L110:
  jlast = j;
  j = idamax_(n, &x[0], &c__1);
  --j;
  if (x[jlast] != fabs(x[j]) && iter < 5) {
    ++iter;
    goto L50;
  }
L120:
  altsgn = 1.;
  for (i = 1; i <= *n; ++i) {
    x[i - 1] = altsgn * ((double)(i - 1) / (double)(*n - 1) + 1.);
    altsgn = -altsgn;
  }
  *kase = 1;
  jump = 5;
  return 0;
L140:
  temp = dasum_(n, x, &c__1) / (double)(*n * 3) * 2.;
  if (temp > *est) {
    dcopy_(n, &x[0], &c__1, &v[0], &c__1);
    *est = temp;
  }
L150:
  *kase = 0;
  return 0;
}


x86 assembly (clang, -O0):
<dlacon_>:
push   %rbp
mov    %rsp,%rbp
sub    $0xa0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
mov    %r9,-0x38(%rbp)
movl   $0x1,-0x3c(%rbp)
movsd  0xe8e(%rip),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x38(%rbp),%rax
cmpl   $0x0,(%rax)
jne    11f8 <dlacon_+0xb8>
movl   $0x0,0x2eda(%rip)
mov    0x2ed4(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    11d8 <dlacon_+0x98>
mov    -0x10(%rbp),%rax
cvtsi2sdl (%rax),%xmm1
movsd  0xe50(%rip),%xmm0
divsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2ea9(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x2e9e(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2e95(%rip)
jmp    118e <dlacon_+0x4e>
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x1,0x2e60(%rip)
movl   $0x0,-0x4(%rbp)
jmp    19f7 <dlacon_+0x8b7>
mov    0x2e4e(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,%ecx
mov    %rcx,-0x58(%rbp)
sub    $0x4,%eax
ja     123d <dlacon_+0xfd>
mov    -0x58(%rbp),%rax
lea    0xe15(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
jmp    1242 <dlacon_+0x102>
jmp    13d9 <dlacon_+0x299>
jmp    1484 <dlacon_+0x344>
jmp    180e <dlacon_+0x6ce>
jmp    1978 <dlacon_+0x838>
jmp    1242 <dlacon_+0x102>
mov    -0x10(%rbp),%rax
cmpl   $0x1,(%rax)
jne    127f <dlacon_+0x13f>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movaps 0xdb2(%rip),%xmm1
pand   %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    19e6 <dlacon_+0x8a6>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x0,0x2dc6(%rip)
mov    0x2dc0(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    13b9 <dlacon_+0x279>
mov    -0x20(%rbp),%rax
movslq 0x2da9(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     12eb <dlacon_+0x1ab>
movsd  -0x48(%rbp),%xmm0
movaps 0xd43(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    1317 <dlacon_+0x1d7>
movsd  -0x48(%rbp),%xmm0
movaps 0xd29(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x60(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2d41(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movslq 0x2d31(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     136e <dlacon_+0x22e>
mov    -0x20(%rbp),%rax
movslq 0x2d14(%rip),%rcx
movsd  0xcb4(%rip),%xmm0
addsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,-0x64(%rbp)
jmp    1394 <dlacon_+0x254>
mov    -0x20(%rbp),%rax
movslq 0x2cef(%rip),%rcx
movsd  0xc8f(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x64(%rbp)
mov    -0x64(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq 0x2cc6(%rip),%rcx
mov    %edx,(%rax,%rcx,4)
mov    0x2cbd(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2cb4(%rip)
jmp    12a2 <dlacon_+0x162>
mov    -0x38(%rbp),%rax
movl   $0x2,(%rax)
movl   $0x2,0x2c7f(%rip)
movl   $0x0,-0x4(%rbp)
jmp    19f7 <dlacon_+0x8b7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1040 <idamax_@plt>
mov    %eax,0x2c7c(%rip)
mov    0x2c76(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,0x2c6d(%rip)
movl   $0x2,0x2c3f(%rip)
movl   $0x0,0x2c55(%rip)
mov    0x2c4f(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    144c <dlacon_+0x30c>
mov    -0x20(%rbp),%rax
movslq 0x2c38(%rip),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    0x2c2a(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2c21(%rip)
jmp    1413 <dlacon_+0x2d3>
mov    -0x20(%rbp),%rax
movslq 0x2c15(%rip),%rcx
movsd  0xba1(%rip),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x3,0x2bd4(%rip)
movl   $0x0,-0x4(%rbp)
jmp    19f7 <dlacon_+0x8b7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x18(%rbp),%rcx
lea    -0x3c(%rbp),%r8
mov    %r8,%rdx
call   1030 <dcopy_@plt>
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,0x2bb4(%rip)
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x0,0x2b99(%rip)
mov    0x2b93(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    1697 <dlacon_+0x557>
mov    -0x20(%rbp),%rax
movslq 0x2b7c(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1518 <dlacon_+0x3d8>
movsd  -0x48(%rbp),%xmm0
movaps 0xb16(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
jmp    1544 <dlacon_+0x404>
movsd  -0x48(%rbp),%xmm0
movaps 0xafc(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x70(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     15d7 <dlacon_+0x497>
mov    -0x20(%rbp),%rax
movslq 0x2b07(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     158d <dlacon_+0x44d>
movsd  -0x48(%rbp),%xmm0
movaps 0xaa1(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x78(%rbp)
jmp    15b9 <dlacon_+0x479>
movsd  -0x48(%rbp),%xmm0
movaps 0xa87(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
movsd  0xa4a(%rip),%xmm1
addsd  %xmm1,%xmm0
call   1060 <floor@plt>
mov    %eax,-0x7c(%rbp)
jmp    1662 <dlacon_+0x522>
mov    -0x20(%rbp),%rax
movslq 0x2a86(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1611 <dlacon_+0x4d1>
movsd  -0x48(%rbp),%xmm0
movaps 0xa20(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
jmp    1640 <dlacon_+0x500>
movsd  -0x48(%rbp),%xmm0
movaps 0xa03(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x88(%rbp),%xmm1
ff
movsd  0x9c0(%rip),%xmm0
subsd  %xmm1,%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x7c(%rbp)
mov    -0x7c(%rbp),%eax
mov    -0x28(%rbp),%rcx
movslq 0x29f8(%rip),%rdx
cmp    (%rcx,%rdx,4),%eax
je     167e <dlacon_+0x53e>
jmp    169c <dlacon_+0x55c>
jmp    1683 <dlacon_+0x543>
mov    0x29df(%rip),%eax
add    $0x1,%eax
mov    %eax,0x29d6(%rip)
jmp    14cf <dlacon_+0x38f>
jmp    18a6 <dlacon_+0x766>
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm1
movsd  0x29b4(%rip),%xmm0
ucomisd %xmm1,%xmm0
jb     16bb <dlacon_+0x57b>
jmp    18a6 <dlacon_+0x766>
movl   $0x0,0x29a3(%rip)
mov    0x299d(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    17ee <dlacon_+0x6ae>
mov    -0x20(%rbp),%rax
movslq 0x2986(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1711 <dlacon_+0x5d1>
movsd  -0x48(%rbp),%xmm0
movaps 0x920(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
jmp    1740 <dlacon_+0x600>
movsd  -0x48(%rbp),%xmm0
movaps 0x903(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
movsd  -0x90(%rbp),%xmm0
ff
mov    -0x20(%rbp),%rax
movslq 0x2915(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movslq 0x2905(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     179d <dlacon_+0x65d>
mov    -0x20(%rbp),%rax
movslq 0x28e8(%rip),%rcx
movsd  0x888(%rip),%xmm0
addsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,-0x94(%rbp)
jmp    17c6 <dlacon_+0x686>
mov    -0x20(%rbp),%rax
movslq 0x28c0(%rip),%rcx
movsd  0x860(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x94(%rbp)
mov    -0x94(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq 0x2891(%rip),%rcx
mov    %edx,(%rax,%rcx,4)
mov    0x2888(%rip),%eax
add    $0x1,%eax
mov    %eax,0x287f(%rip)
jmp    16c5 <dlacon_+0x585>
mov    -0x38(%rbp),%rax
movl   $0x2,(%rax)
movl   $0x4,0x284a(%rip)
movl   $0x0,-0x4(%rbp)
jmp    19f7 <dlacon_+0x8b7>
mov    0x2858(%rip),%eax
mov    %eax,0x2836(%rip)
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1040 <idamax_@plt>
mov    %eax,0x283b(%rip)
mov    0x2835(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,0x282c(%rip)
mov    -0x20(%rbp),%rax
movslq 0x2805(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2811(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm1
movaps 0x7b9(%rip),%xmm2
pand   %xmm2,%xmm1
ucomisd %xmm1,%xmm0
jne    1880 <dlacon_+0x740>
jp     1880 <dlacon_+0x740>
jmp    18a1 <dlacon_+0x761>
cmpl   $0x5,0x27c1(%rip)
jge    18a1 <dlacon_+0x761>
mov    0x27b5(%rip),%eax
add    $0x1,%eax
mov    %eax,0x27ac(%rip)
jmp    1409 <dlacon_+0x2c9>
jmp    18a6 <dlacon_+0x766>
movsd  0x752(%rip),%xmm0
movsd  %xmm0,0x27a2(%rip)
movl   $0x1,0x27a8(%rip)
mov    0x27a2(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jg     1958 <dlacon_+0x818>
movsd  0x277e(%rip),%xmm0
mov    0x2788(%rip),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm1
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm2
divsd  %xmm2,%xmm1
movsd  0x700(%rip),%xmm2
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
mov    0x2756(%rip),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  0x2733(%rip),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,0x2714(%rip)
mov    0x271e(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2715(%rip)
jmp    18c0 <dlacon_+0x780>
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x5,0x26e0(%rip)
movl   $0x0,-0x4(%rbp)
jmp    19f7 <dlacon_+0x8b7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x10(%rbp),%rax
imul   $0x3,(%rax),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
movsd  0x668(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
mov    -0x30(%rbp),%rax
ucomisd (%rax),%xmm0
jbe    19e1 <dlacon_+0x8a1>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x18(%rbp),%rcx
lea    -0x3c(%rbp),%r8
mov    %r8,%rdx
call   1030 <dcopy_@plt>
movsd  -0x50(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    19e6 <dlacon_+0x8a6>
mov    -0x38(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0xa0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dlacon_>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %r9,%r14
mov    %rdx,%rbx
mov    %rdi,%r15
movl   $0x1,0x4(%rsp)
cmpl   $0x0,(%r9)
je     11c9 <dlacon_+0x79>
mov    %r8,%r13
mov    %rcx,%r12
mov    %rsi,%rbp
mov    0x2ed0(%rip),%eax
add    $0xfffffffe,%eax
cmp    $0x3,%eax
ja     11f7 <dlacon_+0xa7>
lea    0xebd(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
mov    %r14,0x8(%rsp)
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1040 <idamax_@plt>
mov    %eax,%r14d
add    $0xffffffff,%r14d
mov    %r14d,0x2ead(%rip)
mov    $0x2,%eax
jmp    1353 <dlacon_+0x203>
mov    (%r15),%eax
test   %eax,%eax
jle    11f0 <dlacon_+0xa0>
cvtsi2sd %eax,%xmm1
movsd  0xe64(%rip),%xmm0
divsd  %xmm1,%xmm0
cmp    $0x4,%eax
jae    13d9 <dlacon_+0x289>
xor    %ecx,%ecx
jmp    15b0 <dlacon_+0x460>
xor    %eax,%eax
jmp    15be <dlacon_+0x46e>
cmpl   $0x1,(%r15)
jne    143e <dlacon_+0x2ee>
movsd  (%rbx),%xmm0
movsd  %xmm0,0x0(%rbp)
andpd  0xdee(%rip),%xmm0
jmp    13c7 <dlacon_+0x277>
mov    %r14,0x8(%rsp)
lea    0x4(%rsp),%r14
mov    %r15,%rdi
mov    %rbx,%rsi
mov    %r14,%rdx
mov    %rbp,%rcx
mov    %r14,%r8
call   1030 <dcopy_@plt>
movsd  0x0(%r13),%xmm0
movsd  %xmm0,0x2e1d(%rip)
mov    %r15,%rdi
mov    %rbp,%rsi
mov    %r14,%rdx
call   1060 <dasum_@plt>
movsd  %xmm0,0x0(%r13)
movl   $0x0,0x2e07(%rip)
cmpl   $0x0,(%r15)
jle    1681 <dlacon_+0x531>
xor    %ecx,%ecx
nopl   (%rax)
movslq %ecx,%rax
movsd  (%rbx,%rax,8),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0xdaa(%rip),%xmm0
call   1070 <floor@plt>
mov    %eax,%edx
neg    %edx
movsd  0x10(%rsp),%xmm0
ucomisd 0xdab(%rip),%xmm0
cmovae %eax,%edx
movslq 0x2dc1(%rip),%rcx
cmp    (%r12,%rcx,4),%edx
jne    15da <dlacon_+0x48a>
add    $0x1,%ecx
mov    %ecx,0x2dae(%rip)
mov    (%r15),%eax
cmp    %eax,%ecx
jl     1270 <dlacon_+0x120>
test   %eax,%eax
jle    1681 <dlacon_+0x531>
lea    -0x1(%rax),%ecx
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
mov    %eax,%ecx
add    $0x1,%eax
cmp    $0x2,%eax
mov    0x8(%rsp),%rbp
jne    168d <dlacon_+0x53d>
xor    %edx,%edx
jmp    16e9 <dlacon_+0x599>
mov    %r14,0x8(%rsp)
mov    0x2d74(%rip),%eax
mov    %eax,0x2d5a(%rip)
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1040 <idamax_@plt>
lea    -0x1(%rax),%r14d
mov    %r14d,0x2d53(%rip)
movslq 0x2d38(%rip),%rcx
movsd  (%rbx,%rcx,8),%xmm0
cltq
movsd  -0x8(%rbx,%rax,8),%xmm1
andpd  0xccb(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    1341 <dlacon_+0x1f1>
jnp    1676 <dlacon_+0x526>
mov    0x2d09(%rip),%eax
cmp    $0x4,%eax
jg     1676 <dlacon_+0x526>
add    $0x1,%eax
mov    %eax,0x2cf7(%rip)
mov    (%r15),%ebp
test   %ebp,%ebp
jle    140b <dlacon_+0x2bb>
lea    0x0(,%rbp,8),%rdx
mov    %rbx,%rdi
xor    %esi,%esi
call   1050 <memset@plt>
jmp    140d <dlacon_+0x2bd>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1060 <dasum_@plt>
mov    (%r15),%eax
lea    (%rax,%rax,2),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
addsd  %xmm0,%xmm0
ucomisd 0x0(%r13),%xmm0
jbe    13cd <dlacon_+0x27d>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
mov    %rbp,%rcx
mov    %rdx,%r8
movapd %xmm0,0x10(%rsp)
call   1030 <dcopy_@plt>
movapd 0x10(%rsp),%xmm0
movsd  %xmm0,0x0(%r13)
movl   $0x0,(%r14)
jmp    171d <dlacon_+0x5cd>
mov    %eax,%ecx
and    $0xfffffffc,%ecx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rcx),%rdi
mov    %rdi,%rsi
shr    $0x2,%rsi
add    $0x1,%rsi
mov    %esi,%edx
and    $0x7,%edx
cmp    $0x1c,%rdi
jae    14e6 <dlacon_+0x396>
xor    %edi,%edi
jmp    1575 <dlacon_+0x425>
xor    %ebp,%ebp
mov    %ebp,0x2c55(%rip)
movslq %r14d,%rax
movabs $0x3ff0000000000000,%rcx
mov    %rcx,(%rbx,%rax,8)
mov    0x8(%rsp),%rax
movl   $0x1,(%rax)
movl   $0x3,0x2c1b(%rip)
jmp    171d <dlacon_+0x5cd>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1060 <dasum_@plt>
movsd  %xmm0,0x0(%r13)
movl   $0x0,0x2c0a(%rip)
cmpl   $0x0,(%r15)
jle    14d0 <dlacon_+0x380>
xor    %eax,%eax
lea    0xba3(%rip),%rbp
jmp    14a0 <dlacon_+0x350>
nop
movsd  0xbc0(%rip),%xmm1
subsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1070 <floor@plt>
neg    %eax
movslq 0x2bda(%rip),%rcx
mov    %eax,(%r12,%rcx,4)
lea    0x1(%rcx),%eax
mov    %eax,0x2bcd(%rip)
cmp    (%r15),%eax
jge    14d0 <dlacon_+0x380>
cltq
movsd  (%rbx,%rax,8),%xmm0
xor    %ecx,%ecx
ucomisd 0xb97(%rip),%xmm0
setb   %cl
movsd  0x0(%rbp,%rcx,8),%xmm0
movsd  %xmm0,(%rbx,%rax,8)
jb     1470 <dlacon_+0x320>
addsd  0xb6f(%rip),%xmm0
call   1070 <floor@plt>
jmp    1487 <dlacon_+0x337>
movl   $0x2,(%r14)
movl   $0x2,0x2b73(%rip)
jmp    171d <dlacon_+0x5cd>
and    $0xfffffffffffffff8,%rsi
xor    %edi,%edi
nopl   0x0(%rax)
movupd %xmm1,(%rbx,%rdi,8)
movupd %xmm1,0x10(%rbx,%rdi,8)
movupd %xmm1,0x20(%rbx,%rdi,8)
movupd %xmm1,0x30(%rbx,%rdi,8)
movupd %xmm1,0x40(%rbx,%rdi,8)
movupd %xmm1,0x50(%rbx,%rdi,8)
movupd %xmm1,0x60(%rbx,%rdi,8)
movupd %xmm1,0x70(%rbx,%rdi,8)
movupd %xmm1,0x80(%rbx,%rdi,8)
movupd %xmm1,0x90(%rbx,%rdi,8)
movupd %xmm1,0xa0(%rbx,%rdi,8)
movupd %xmm1,0xb0(%rbx,%rdi,8)
movupd %xmm1,0xc0(%rbx,%rdi,8)
movupd %xmm1,0xd0(%rbx,%rdi,8)
movupd %xmm1,0xe0(%rbx,%rdi,8)
movupd %xmm1,0xf0(%rbx,%rdi,8)
add    $0x20,%rdi
add    $0xfffffffffffffff8,%rsi
jne    14f0 <dlacon_+0x3a0>
test   %rdx,%rdx
je     15a4 <dlacon_+0x454>
lea    (%rbx,%rdi,8),%rsi
add    $0x10,%rsi
shl    $0x5,%rdx
xor    %edi,%edi
nopl   0x0(%rax,%rax,1)
movupd %xmm1,-0x10(%rsi,%rdi,1)
movupd %xmm1,(%rsi,%rdi,1)
add    $0x20,%rdi
cmp    %rdi,%rdx
jne    1590 <dlacon_+0x440>
cmp    %rax,%rcx
je     15be <dlacon_+0x46e>
nopl   0x0(%rax)
movsd  %xmm0,(%rbx,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    15b0 <dlacon_+0x460>
mov    %eax,0x2aa4(%rip)
movl   $0x1,(%r14)
movl   $0x1,0x2a7f(%rip)
jmp    171d <dlacon_+0x5cd>
movsd  0x2a7e(%rip),%xmm0
ucomisd 0x0(%r13),%xmm0
jae    1676 <dlacon_+0x526>
movl   $0x0,0x2a70(%rip)
cmpl   $0x0,(%r15)
mov    0x8(%rsp),%r14
jle    172e <dlacon_+0x5de>
xor    %eax,%eax
lea    0xa00(%rip),%rbp
jmp    1646 <dlacon_+0x4f6>
movsd  0xa1e(%rip),%xmm1
subsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1070 <floor@plt>
neg    %eax
movslq 0x2a38(%rip),%rcx
mov    %eax,(%r12,%rcx,4)
lea    0x1(%rcx),%eax
mov    %eax,0x2a2b(%rip)
cmp    (%r15),%eax
jge    172e <dlacon_+0x5de>
cltq
movsd  (%rbx,%rax,8),%xmm0
xor    %ecx,%ecx
ucomisd 0x9f1(%rip),%xmm0
setb   %cl
movsd  0x0(%rbp,%rcx,8),%xmm0
movsd  %xmm0,(%rbx,%rax,8)
jb     1612 <dlacon_+0x4c2>
addsd  0x9c9(%rip),%xmm0
call   1070 <floor@plt>
jmp    1629 <dlacon_+0x4d9>
mov    (%r15),%eax
test   %eax,%eax
jg     12c9 <dlacon_+0x179>
mov    $0x1,%eax
mov    0x8(%rsp),%rbp
jmp    1706 <dlacon_+0x5b6>
mov    %ecx,%esi
and    $0xfffffffe,%esi
xor    %edx,%edx
movsd  0x9a4(%rip),%xmm1
movapd 0x97c(%rip),%xmm2
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
xorps  %xmm3,%xmm3
cvtsi2sd %edx,%xmm3
divsd  %xmm0,%xmm3
addsd  %xmm1,%xmm3
movsd  %xmm3,(%rbx,%rdx,8)
lea    0x1(%rdx),%edi
xorps  %xmm3,%xmm3
cvtsi2sd %edi,%xmm3
divsd  %xmm0,%xmm3
addsd  %xmm1,%xmm3
xorpd  %xmm2,%xmm3
movlpd %xmm3,0x8(%rbx,%rdx,8)
add    $0x2,%rdx
cmp    %rdx,%rsi
jne    16b0 <dlacon_+0x560>
test   $0x1,%cl
je     1706 <dlacon_+0x5b6>
xorps  %xmm1,%xmm1
cvtsi2sd %edx,%xmm1
divsd  %xmm0,%xmm1
addsd  0x93f(%rip),%xmm1
movsd  %xmm1,(%rbx,%rdx,8)
mov    %eax,0x295c(%rip)
movl   $0x1,0x0(%rbp)
movl   $0x5,0x2937(%rip)
xor    %eax,%eax
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movl   $0x2,(%r14)
movl   $0x4,0x2915(%rip)
jmp    171d <dlacon_+0x5cd>

LLVM IR (-O0):
@dlacon_.iter = internal global i32 0
@dlacon_.jump = internal global i32 0
@dlacon_.jlast = internal global i32 0
@dlacon_.altsgn = internal global double 0.000000e+00
@dlacon_.estold = internal global double 0.000000e+00
@dlacon_.i = internal global i32 0
@dlacon_.j = internal global i32 0
define i32 @dlacon_(i32* %0, double* %1, double* %2, i32* %3, double* %4, i32* %5) {
%7 = alloca i32
%8 = alloca i32*
%9 = alloca double*
%10 = alloca double*
%11 = alloca i32*
%12 = alloca double*
%13 = alloca i32*
%14 = alloca i32
%15 = alloca double
%16 = alloca double
store i32* %0, i32** %8
store double* %1, double** %9
store double* %2, double** %10
store i32* %3, i32** %11
store double* %4, double** %12
store i32* %5, i32** %13
store i32 1, i32* %14
store double 1.000000e+00, double* %15
%17 = load i32*, i32** %13
%18 = load i32, i32* %17
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %40
20: ; preds = %6
store i32 0, i32* @dlacon_.i
br label %21
21: ; preds = %35, %20
%22 = load i32, i32* @dlacon_.i
%23 = load i32*, i32** %8
%24 = load i32, i32* %23
%25 = icmp slt i32 %22, %24
br i1 %25, label %26, label %38
26: ; preds = %21
%27 = load i32*, i32** %8
%28 = load i32, i32* %27
%29 = sitofp i32 %28 to double
%30 = fdiv double 1.000000e+00, %29
%31 = load double*, double** %10
%32 = load i32, i32* @dlacon_.i
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %31, i64 %33
store double %30, double* %34
br label %35
35: ; preds = %26
%36 = load i32, i32* @dlacon_.i
%37 = add nsw i32 %36, 1
store i32 %37, i32* @dlacon_.i
br label %21
38: ; preds = %21
%39 = load i32*, i32** %13
store i32 1, i32* %39
store i32 1, i32* @dlacon_.jump
store i32 0, i32* %7
br label %389
40: ; preds = %6
%41 = load i32, i32* @dlacon_.jump
switch i32 %41, label %47 [
i32 1, label %42
i32 2, label %43
i32 3, label %44
i32 4, label %45
i32 5, label %46
]
42: ; preds = %40
br label %48
43: ; preds = %40
br label %127
44: ; preds = %40
br label %154
45: ; preds = %40
br label %306
46: ; preds = %40
br label %363
47: ; preds = %40
br label %48
48: ; preds = %47, %42
%49 = load i32*, i32** %8
%50 = load i32, i32* %49
%51 = icmp eq i32 %50, 1
br i1 %51, label %52, label %63
52: ; preds = %48
%53 = load double*, double** %10
%54 = getelementptr inbounds double, double* %53, i64 0
%55 = load double, double* %54
%56 = load double*, double** %9
%57 = getelementptr inbounds double, double* %56, i64 0
store double %55, double* %57
%58 = load double*, double** %9
%59 = getelementptr inbounds double, double* %58, i64 0
%60 = load double, double* %59
%61 = call double @llvm.fabs.f64(double %60)
%62 = load double*, double** %12
store double %61, double* %62
br label %387
63: ; preds = %48
%64 = load i32*, i32** %8
%65 = load double*, double** %10
%66 = call double @dasum_(i32* %64, double* %65, i32* %14)
%67 = load double*, double** %12
store double %66, double* %67
store i32 0, i32* @dlacon_.i
br label %68
68: ; preds = %122, %63
%69 = load i32, i32* @dlacon_.i
%70 = load i32*, i32** %8
%71 = load i32, i32* %70
%72 = icmp slt i32 %69, %71
br i1 %72, label %73, label %125
73: ; preds = %68
%74 = load double*, double** %10
%75 = load i32, i32* @dlacon_.i
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds double, double* %74, i64 %76
%78 = load double, double* %77
%79 = fcmp oge double %78, 0.000000e+00
br i1 %79, label %80, label %83
80: ; preds = %73
%81 = load double, double* %15
%82 = call double @llvm.fabs.f64(double %81)
br label %87
83: ; preds = %73
%84 = load double, double* %15
%85 = call double @llvm.fabs.f64(double %84)
%86 = fneg double %85
br label %87
87: ; preds = %83, %80
%88 = phi double [ %82, %80 ], [ %86, %83 ]
%89 = load double*, double** %10
%90 = load i32, i32* @dlacon_.i
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %89, i64 %91
store double %88, double* %92
%93 = load double*, double** %10
%94 = load i32, i32* @dlacon_.i
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds double, double* %93, i64 %95
%97 = load double, double* %96
%98 = fcmp oge double %97, 0.000000e+00
br i1 %98, label %99, label %107
99: ; preds = %87
%100 = load double*, double** %10
%101 = load i32, i32* @dlacon_.i
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds double, double* %100, i64 %102
%104 = load double, double* %103
%105 = fadd double %104, 5.000000e-01
%106 = call i32 @floor(double %105)
br label %116
107: ; preds = %87
%108 = load double*, double** %10
%109 = load i32, i32* @dlacon_.i
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds double, double* %108, i64 %110
%112 = load double, double* %111
%113 = fsub double 5.000000e-01, %112
%114 = call i32 @floor(double %113)
%115 = sub nsw i32 0, %114
br label %116
116: ; preds = %107, %99
%117 = phi i32 [ %106, %99 ], [ %115, %107 ]
%118 = load i32*, i32** %11
%119 = load i32, i32* @dlacon_.i
%120 = sext i32 %119 to i64
%121 = getelementptr inbounds i32, i32* %118, i64 %120
store i32 %117, i32* %121
br label %122
122: ; preds = %116
%123 = load i32, i32* @dlacon_.i
%124 = add nsw i32 %123, 1
store i32 %124, i32* @dlacon_.i
br label %68
125: ; preds = %68
%126 = load i32*, i32** %13
store i32 2, i32* %126
store i32 2, i32* @dlacon_.jump
store i32 0, i32* %7
br label %389
127: ; preds = %43
%128 = load i32*, i32** %8
%129 = load double*, double** %10
%130 = getelementptr inbounds double, double* %129, i64 0
%131 = call i32 @idamax_(i32* %128, double* %130, i32* %14)
store i32 %131, i32* @dlacon_.j
%132 = load i32, i32* @dlacon_.j
%133 = add nsw i32 %132, -1
store i32 %133, i32* @dlacon_.j
store i32 2, i32* @dlacon_.iter
br label %134
134: ; preds = %329, %127
store i32 0, i32* @dlacon_.i
br label %135
135: ; preds = %145, %134
%136 = load i32, i32* @dlacon_.i
%137 = load i32*, i32** %8
%138 = load i32, i32* %137
%139 = icmp slt i32 %136, %138
br i1 %139, label %140, label %148
140: ; preds = %135
%141 = load double*, double** %10
%142 = load i32, i32* @dlacon_.i
%143 = sext i32 %142 to i64
%144 = getelementptr inbounds double, double* %141, i64 %143
store double 0.000000e+00, double* %144
br label %145
145: ; preds = %140
%146 = load i32, i32* @dlacon_.i
%147 = add nsw i32 %146, 1
store i32 %147, i32* @dlacon_.i
br label %135
148: ; preds = %135
%149 = load double*, double** %10
%150 = load i32, i32* @dlacon_.j
%151 = sext i32 %150 to i64
%152 = getelementptr inbounds double, double* %149, i64 %151
store double 1.000000e+00, double* %152
%153 = load i32*, i32** %13
store i32 1, i32* %153
store i32 3, i32* @dlacon_.jump
store i32 0, i32* %7
br label %389
154: ; preds = %44
%155 = load i32*, i32** %8
%156 = load double*, double** %10
%157 = getelementptr inbounds double, double* %156, i64 0
%158 = load double*, double** %9
%159 = getelementptr inbounds double, double* %158, i64 0
%160 = call i32 @dcopy_(i32* %155, double* %157, i32* %14, double* %159, i32* %14)
%161 = load double*, double** %12
%162 = load double, double* %161
store double %162, double* @dlacon_.estold
%163 = load i32*, i32** %8
%164 = load double*, double** %9
%165 = call double @dasum_(i32* %163, double* %164, i32* %14)
%166 = load double*, double** %12
store double %165, double* %166
store i32 0, i32* @dlacon_.i
br label %167
167: ; preds = %236, %154
%168 = load i32, i32* @dlacon_.i
%169 = load i32*, i32** %8
%170 = load i32, i32* %169
%171 = icmp slt i32 %168, %170
br i1 %171, label %172, label %239
172: ; preds = %167
%173 = load double*, double** %10
%174 = load i32, i32* @dlacon_.i
%175 = sext i32 %174 to i64
%176 = getelementptr inbounds double, double* %173, i64 %175
%177 = load double, double* %176
%178 = fcmp oge double %177, 0.000000e+00
br i1 %178, label %179, label %182
179: ; preds = %172
%180 = load double, double* %15
%181 = call double @llvm.fabs.f64(double %180)
br label %186
182: ; preds = %172
%183 = load double, double* %15
%184 = call double @llvm.fabs.f64(double %183)
%185 = fneg double %184
br label %186
186: ; preds = %182, %179
%187 = phi double [ %181, %179 ], [ %185, %182 ]
%188 = fcmp oge double %187, 0.000000e+00
br i1 %188, label %189, label %207
189: ; preds = %186
%190 = load double*, double** %10
%191 = load i32, i32* @dlacon_.i
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds double, double* %190, i64 %192
%194 = load double, double* %193
%195 = fcmp oge double %194, 0.000000e+00
br i1 %195, label %196, label %199
196: ; preds = %189
%197 = load double, double* %15
%198 = call double @llvm.fabs.f64(double %197)
br label %203
199: ; preds = %189
%200 = load double, double* %15
%201 = call double @llvm.fabs.f64(double %200)
%202 = fneg double %201
br label %203
203: ; preds = %199, %196
%204 = phi double [ %198, %196 ], [ %202, %199 ]
%205 = fadd double %204, 5.000000e-01
%206 = call i32 @floor(double %205)
br label %226
207: ; preds = %186
%208 = load double*, double** %10
%209 = load i32, i32* @dlacon_.i
%210 = sext i32 %209 to i64
%211 = getelementptr inbounds double, double* %208, i64 %210
%212 = load double, double* %211
%213 = fcmp oge double %212, 0.000000e+00
br i1 %213, label %214, label %217
214: ; preds = %207
%215 = load double, double* %15
%216 = call double @llvm.fabs.f64(double %215)
br label %221
217: ; preds = %207
%218 = load double, double* %15
%219 = call double @llvm.fabs.f64(double %218)
%220 = fneg double %219
br label %221
221: ; preds = %217, %214
%222 = phi double [ %216, %214 ], [ %220, %217 ]
%223 = fsub double 5.000000e-01, %222
%224 = call i32 @floor(double %223)
%225 = sub nsw i32 0, %224
br label %226
226: ; preds = %221, %203
%227 = phi i32 [ %206, %203 ], [ %225, %221 ]
%228 = load i32*, i32** %11
%229 = load i32, i32* @dlacon_.i
%230 = sext i32 %229 to i64
%231 = getelementptr inbounds i32, i32* %228, i64 %230
%232 = load i32, i32* %231
%233 = icmp ne i32 %227, %232
br i1 %233, label %234, label %235
234: ; preds = %226
br label %240
235: ; preds = %226
br label %236
236: ; preds = %235
%237 = load i32, i32* @dlacon_.i
%238 = add nsw i32 %237, 1
store i32 %238, i32* @dlacon_.i
br label %167
239: ; preds = %167
br label %333
240: ; preds = %234
%241 = load double*, double** %12
%242 = load double, double* %241
%243 = load double, double* @dlacon_.estold
%244 = fcmp ole double %242, %243
br i1 %244, label %245, label %246
245: ; preds = %240
br label %333
246: ; preds = %240
store i32 0, i32* @dlacon_.i
br label %247
247: ; preds = %301, %246
%248 = load i32, i32* @dlacon_.i
%249 = load i32*, i32** %8
%250 = load i32, i32* %249
%251 = icmp slt i32 %248, %250
br i1 %251, label %252, label %304
252: ; preds = %247
%253 = load double*, double** %10
%254 = load i32, i32* @dlacon_.i
%255 = sext i32 %254 to i64
%256 = getelementptr inbounds double, double* %253, i64 %255
%257 = load double, double* %256
%258 = fcmp oge double %257, 0.000000e+00
br i1 %258, label %259, label %262
259: ; preds = %252
%260 = load double, double* %15
%261 = call double @llvm.fabs.f64(double %260)
br label %266
262: ; preds = %252
%263 = load double, double* %15
%264 = call double @llvm.fabs.f64(double %263)
%265 = fneg double %264
br label %266
266: ; preds = %262, %259
%267 = phi double [ %261, %259 ], [ %265, %262 ]
%268 = load double*, double** %10
%269 = load i32, i32* @dlacon_.i
%270 = sext i32 %269 to i64
%271 = getelementptr inbounds double, double* %268, i64 %270
store double %267, double* %271
%272 = load double*, double** %10
%273 = load i32, i32* @dlacon_.i
%274 = sext i32 %273 to i64
%275 = getelementptr inbounds double, double* %272, i64 %274
%276 = load double, double* %275
%277 = fcmp oge double %276, 0.000000e+00
br i1 %277, label %278, label %286
278: ; preds = %266
%279 = load double*, double** %10
%280 = load i32, i32* @dlacon_.i
%281 = sext i32 %280 to i64
%282 = getelementptr inbounds double, double* %279, i64 %281
%283 = load double, double* %282
%284 = fadd double %283, 5.000000e-01
%285 = call i32 @floor(double %284)
br label %295
286: ; preds = %266
%287 = load double*, double** %10
%288 = load i32, i32* @dlacon_.i
%289 = sext i32 %288 to i64
%290 = getelementptr inbounds double, double* %287, i64 %289
%291 = load double, double* %290
%292 = fsub double 5.000000e-01, %291
%293 = call i32 @floor(double %292)
%294 = sub nsw i32 0, %293
br label %295
295: ; preds = %286, %278
%296 = phi i32 [ %285, %278 ], [ %294, %286 ]
%297 = load i32*, i32** %11
%298 = load i32, i32* @dlacon_.i
%299 = sext i32 %298 to i64
%300 = getelementptr inbounds i32, i32* %297, i64 %299
store i32 %296, i32* %300
br label %301
301: ; preds = %295
%302 = load i32, i32* @dlacon_.i
%303 = add nsw i32 %302, 1
store i32 %303, i32* @dlacon_.i
br label %247
304: ; preds = %247
%305 = load i32*, i32** %13
store i32 2, i32* %305
store i32 4, i32* @dlacon_.jump
store i32 0, i32* %7
br label %389
306: ; preds = %45
%307 = load i32, i32* @dlacon_.j
store i32 %307, i32* @dlacon_.jlast
%308 = load i32*, i32** %8
%309 = load double*, double** %10
%310 = getelementptr inbounds double, double* %309, i64 0
%311 = call i32 @idamax_(i32* %308, double* %310, i32* %14)
store i32 %311, i32* @dlacon_.j
%312 = load i32, i32* @dlacon_.j
%313 = add nsw i32 %312, -1
store i32 %313, i32* @dlacon_.j
%314 = load double*, double** %10
%315 = load i32, i32* @dlacon_.jlast
%316 = sext i32 %315 to i64
%317 = getelementptr inbounds double, double* %314, i64 %316
%318 = load double, double* %317
%319 = load double*, double** %10
%320 = load i32, i32* @dlacon_.j
%321 = sext i32 %320 to i64
%322 = getelementptr inbounds double, double* %319, i64 %321
%323 = load double, double* %322
%324 = call double @llvm.fabs.f64(double %323)
%325 = fcmp une double %318, %324
br i1 %325, label %326, label %332
326: ; preds = %306
%327 = load i32, i32* @dlacon_.iter
%328 = icmp slt i32 %327, 5
br i1 %328, label %329, label %332
329: ; preds = %326
%330 = load i32, i32* @dlacon_.iter
%331 = add nsw i32 %330, 1
store i32 %331, i32* @dlacon_.iter
br label %134
332: ; preds = %326, %306
br label %333
333: ; preds = %332, %245, %239
store double 1.000000e+00, double* @dlacon_.altsgn
store i32 1, i32* @dlacon_.i
br label %334
334: ; preds = %358, %333
%335 = load i32, i32* @dlacon_.i
%336 = load i32*, i32** %8
%337 = load i32, i32* %336
%338 = icmp sle i32 %335, %337
br i1 %338, label %339, label %361
339: ; preds = %334
%340 = load double, double* @dlacon_.altsgn
%341 = load i32, i32* @dlacon_.i
%342 = sub nsw i32 %341, 1
%343 = sitofp i32 %342 to double
%344 = load i32*, i32** %8
%345 = load i32, i32* %344
%346 = sub nsw i32 %345, 1
%347 = sitofp i32 %346 to double
%348 = fdiv double %343, %347
%349 = fadd double %348, 1.000000e+00
%350 = fmul double %340, %349
%351 = load double*, double** %10
%352 = load i32, i32* @dlacon_.i
%353 = sub nsw i32 %352, 1
%354 = sext i32 %353 to i64
%355 = getelementptr inbounds double, double* %351, i64 %354
store double %350, double* %355
%356 = load double, double* @dlacon_.altsgn
%357 = fneg double %356
store double %357, double* @dlacon_.altsgn
br label %358
358: ; preds = %339
%359 = load i32, i32* @dlacon_.i
%360 = add nsw i32 %359, 1
store i32 %360, i32* @dlacon_.i
br label %334
361: ; preds = %334
%362 = load i32*, i32** %13
store i32 1, i32* %362
store i32 5, i32* @dlacon_.jump
store i32 0, i32* %7
br label %389
363: ; preds = %46
%364 = load i32*, i32** %8
%365 = load double*, double** %10
%366 = call double @dasum_(i32* %364, double* %365, i32* %14)
%367 = load i32*, i32** %8
%368 = load i32, i32* %367
%369 = mul nsw i32 %368, 3
%370 = sitofp i32 %369 to double
%371 = fdiv double %366, %370
%372 = fmul double %371, 2.000000e+00
store double %372, double* %16
%373 = load double, double* %16
%374 = load double*, double** %12
%375 = load double, double* %374
%376 = fcmp ogt double %373, %375
br i1 %376, label %377, label %386
377: ; preds = %363
%378 = load i32*, i32** %8
%379 = load double*, double** %10
%380 = getelementptr inbounds double, double* %379, i64 0
%381 = load double*, double** %9
%382 = getelementptr inbounds double, double* %381, i64 0
%383 = call i32 @dcopy_(i32* %378, double* %380, i32* %14, double* %382, i32* %14)
%384 = load double, double* %16
%385 = load double*, double** %12
store double %384, double* %385
br label %386
386: ; preds = %377, %363
br label %387
387: ; preds = %386, %52
%388 = load i32*, i32** %13
store i32 0, i32* %388
store i32 0, i32* %7
br label %389
389: ; preds = %387, %361, %304, %148, %125, %38
%390 = load i32, i32* %7
ret i32 %390
}

LLVM IR (-O2):
@dlacon_.iter = internal unnamed_addr global i32 0
@dlacon_.jump = internal unnamed_addr global i32 0
@dlacon_.jlast = internal unnamed_addr global i32 0
@dlacon_.estold = internal unnamed_addr global double 0.000000e+00
@dlacon_.i = internal unnamed_addr global i32 0
@dlacon_.j = internal unnamed_addr global i32 0
define i32 @dlacon_(i32* %0, double* %1, double* %2, i32* nocapture %3, double* nocapture %4, i32* nocapture %5) {
%7 = bitcast double* %2 to i8*
%8 = alloca i32
%9 = bitcast i32* %8 to i8*
store i32 1, i32* %8
%10 = load i32, i32* %5
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %102
12: ; preds = %6
%13 = load i32, i32* %0
%14 = icmp sgt i32 %13, 0
br i1 %14, label %15, label %100
15: ; preds = %12
%16 = sitofp i32 %13 to double
%17 = fdiv double 1.000000e+00, %16
%18 = zext i32 %13 to i64
%19 = icmp ult i32 %13, 4
br i1 %19, label %93, label %20
20: ; preds = %15
%21 = and i64 %18, 4294967292
%22 = insertelement <2 x double> poison, double %17, i64 0
%23 = shufflevector <2 x double> %22, <2 x double> poison, <2 x i32> zeroinitializer
%24 = insertelement <2 x double> poison, double %17, i64 0
%25 = shufflevector <2 x double> %24, <2 x double> poison, <2 x i32> zeroinitializer
%26 = add nsw i64 %21, -4
%27 = lshr exact i64 %26, 2
%28 = add nuw nsw i64 %27, 1
%29 = and i64 %28, 7
%30 = icmp ult i64 %26, 28
br i1 %30, label %78, label %31
31: ; preds = %20
%32 = and i64 %28, 9223372036854775800
br label %33
33: ; preds = %33, %31
%34 = phi i64 [ 0, %31 ], [ %75, %33 ]
%35 = phi i64 [ 0, %31 ], [ %76, %33 ]
%36 = getelementptr inbounds double, double* %2, i64 %34
%37 = bitcast double* %36 to <2 x double>*
store <2 x double> %23, <2 x double>* %37
%38 = getelementptr inbounds double, double* %36, i64 2
%39 = bitcast double* %38 to <2 x double>*
store <2 x double> %25, <2 x double>* %39
%40 = or i64 %34, 4
%41 = getelementptr inbounds double, double* %2, i64 %40
%42 = bitcast double* %41 to <2 x double>*
store <2 x double> %23, <2 x double>* %42
%43 = getelementptr inbounds double, double* %41, i64 2
%44 = bitcast double* %43 to <2 x double>*
store <2 x double> %25, <2 x double>* %44
%45 = or i64 %34, 8
%46 = getelementptr inbounds double, double* %2, i64 %45
%47 = bitcast double* %46 to <2 x double>*
store <2 x double> %23, <2 x double>* %47
%48 = getelementptr inbounds double, double* %46, i64 2
%49 = bitcast double* %48 to <2 x double>*
store <2 x double> %25, <2 x double>* %49
%50 = or i64 %34, 12
%51 = getelementptr inbounds double, double* %2, i64 %50
%52 = bitcast double* %51 to <2 x double>*
store <2 x double> %23, <2 x double>* %52
%53 = getelementptr inbounds double, double* %51, i64 2
%54 = bitcast double* %53 to <2 x double>*
store <2 x double> %25, <2 x double>* %54
%55 = or i64 %34, 16
%56 = getelementptr inbounds double, double* %2, i64 %55
%57 = bitcast double* %56 to <2 x double>*
store <2 x double> %23, <2 x double>* %57
%58 = getelementptr inbounds double, double* %56, i64 2
%59 = bitcast double* %58 to <2 x double>*
store <2 x double> %25, <2 x double>* %59
%60 = or i64 %34, 20
%61 = getelementptr inbounds double, double* %2, i64 %60
%62 = bitcast double* %61 to <2 x double>*
store <2 x double> %23, <2 x double>* %62
%63 = getelementptr inbounds double, double* %61, i64 2
%64 = bitcast double* %63 to <2 x double>*
store <2 x double> %25, <2 x double>* %64
%65 = or i64 %34, 24
%66 = getelementptr inbounds double, double* %2, i64 %65
%67 = bitcast double* %66 to <2 x double>*
store <2 x double> %23, <2 x double>* %67
%68 = getelementptr inbounds double, double* %66, i64 2
%69 = bitcast double* %68 to <2 x double>*
store <2 x double> %25, <2 x double>* %69
%70 = or i64 %34, 28
%71 = getelementptr inbounds double, double* %2, i64 %70
%72 = bitcast double* %71 to <2 x double>*
store <2 x double> %23, <2 x double>* %72
%73 = getelementptr inbounds double, double* %71, i64 2
%74 = bitcast double* %73 to <2 x double>*
store <2 x double> %25, <2 x double>* %74
%75 = add nuw i64 %34, 32
%76 = add i64 %35, 8
%77 = icmp eq i64 %76, %32
br i1 %77, label %78, label %33
78: ; preds = %33, %20
%79 = phi i64 [ 0, %20 ], [ %75, %33 ]
%80 = icmp eq i64 %29, 0
br i1 %80, label %91, label %81
81: ; preds = %78, %81
%82 = phi i64 [ %88, %81 ], [ %79, %78 ]
%83 = phi i64 [ %89, %81 ], [ 0, %78 ]
%84 = getelementptr inbounds double, double* %2, i64 %82
%85 = bitcast double* %84 to <2 x double>*
store <2 x double> %23, <2 x double>* %85
%86 = getelementptr inbounds double, double* %84, i64 2
%87 = bitcast double* %86 to <2 x double>*
store <2 x double> %25, <2 x double>* %87
%88 = add nuw i64 %82, 4
%89 = add i64 %83, 1
%90 = icmp eq i64 %89, %29
br i1 %90, label %91, label %81
91: ; preds = %81, %78
%92 = icmp eq i64 %21, %18
br i1 %92, label %100, label %93
93: ; preds = %15, %91
%94 = phi i64 [ 0, %15 ], [ %21, %91 ]
br label %95
95: ; preds = %93, %95
%96 = phi i64 [ %98, %95 ], [ %94, %93 ]
%97 = getelementptr inbounds double, double* %2, i64 %96
store double %17, double* %97
%98 = add nuw nsw i64 %96, 1
%99 = icmp eq i64 %98, %18
br i1 %99, label %100, label %95
100: ; preds = %95, %91, %12
%101 = phi i32 [ 0, %12 ], [ %13, %91 ], [ %13, %95 ]
store i32 %101, i32* @dlacon_.i
store i32 1, i32* %5
store i32 1, i32* @dlacon_.jump
br label %283
102: ; preds = %6
%103 = load i32, i32* @dlacon_.jump
switch i32 %103, label %104 [
i32 5, label %269
i32 2, label %137
i32 3, label %152
i32 4, label %206
]
104: ; preds = %102
%105 = load i32, i32* %0
%106 = icmp eq i32 %105, 1
br i1 %106, label %107, label %110
107: ; preds = %104
%108 = load double, double* %2
store double %108, double* %1
%109 = tail call double @llvm.fabs.f64(double %108)
br label %280
110: ; preds = %104
%111 = call double @dasum_(i32* %0, double* %2, i32* %8)
store double %111, double* %4
store i32 0, i32* @dlacon_.i
%112 = load i32, i32* %0
%113 = icmp sgt i32 %112, 0
br i1 %113, label %114, label %136
114: ; preds = %110, %128
%115 = phi i32 [ %133, %128 ], [ 0, %110 ]
%116 = sext i32 %115 to i64
%117 = getelementptr inbounds double, double* %2, i64 %116
%118 = load double, double* %117
%119 = fcmp ult double %118, 0.000000e+00
%120 = select i1 %119, double -1.000000e+00, double 1.000000e+00
store double %120, double* %117
br i1 %119, label %124, label %121
121: ; preds = %114
%122 = fadd double %120, 5.000000e-01
%123 = call i32 @floor(double %122)
br label %128
124: ; preds = %114
%125 = fsub double 5.000000e-01, %120
%126 = call i32 @floor(double %125)
%127 = sub nsw i32 0, %126
br label %128
128: ; preds = %124, %121
%129 = phi i32 [ %123, %121 ], [ %127, %124 ]
%130 = load i32, i32* @dlacon_.i
%131 = sext i32 %130 to i64
%132 = getelementptr inbounds i32, i32* %3, i64 %131
store i32 %129, i32* %132
%133 = add nsw i32 %130, 1
store i32 %133, i32* @dlacon_.i
%134 = load i32, i32* %0
%135 = icmp slt i32 %133, %134
br i1 %135, label %114, label %136
136: ; preds = %128, %110
store i32 2, i32* %5
store i32 2, i32* @dlacon_.jump
br label %283
137: ; preds = %102
%138 = call i32 @idamax_(i32* %0, double* %2, i32* %8)
%139 = add nsw i32 %138, -1
store i32 %139, i32* @dlacon_.j
br label %140
140: ; preds = %222, %137
%141 = phi i32 [ %209, %222 ], [ %139, %137 ]
%142 = phi i32 [ %223, %222 ], [ 2, %137 ]
store i32 %142, i32* @dlacon_.iter
%143 = load i32, i32* %0
%144 = icmp sgt i32 %143, 0
br i1 %144, label %145, label %148
145: ; preds = %140
%146 = zext i32 %143 to i64
%147 = shl nuw nsw i64 %146, 3
br label %148
148: ; preds = %145, %140
%149 = phi i32 [ 0, %140 ], [ %143, %145 ]
store i32 %149, i32* @dlacon_.i
%150 = sext i32 %141 to i64
%151 = getelementptr inbounds double, double* %2, i64 %150
store double 1.000000e+00, double* %151
store i32 1, i32* %5
store i32 3, i32* @dlacon_.jump
br label %283
152: ; preds = %102
%153 = call i32 @dcopy_(i32* %0, double* %2, i32* %8, double* %1, i32* %8)
%154 = load double, double* %4
store double %154, double* @dlacon_.estold
%155 = call double @dasum_(i32* %0, double* %1, i32* %8)
store double %155, double* %4
store i32 0, i32* @dlacon_.i
%156 = load i32, i32* %0
%157 = icmp sgt i32 %156, 0
br i1 %157, label %161, label %267
158: ; preds = %161
store i32 %175, i32* @dlacon_.i
%159 = load i32, i32* %0
%160 = icmp slt i32 %175, %159
br i1 %160, label %161, label %226
161: ; preds = %152, %158
%162 = phi i32 [ %175, %158 ], [ 0, %152 ]
%163 = sext i32 %162 to i64
%164 = getelementptr inbounds double, double* %2, i64 %163
%165 = load double, double* %164
%166 = fcmp ult double %165, 0.000000e+00
%167 = call i32 @floor(double 1.500000e+00)
%168 = sub nsw i32 0, %167
%169 = select i1 %166, i32 %168, i32 %167
%170 = load i32, i32* @dlacon_.i
%171 = sext i32 %170 to i64
%172 = getelementptr inbounds i32, i32* %3, i64 %171
%173 = load i32, i32* %172
%174 = icmp eq i32 %169, %173
%175 = add nsw i32 %170, 1
br i1 %174, label %158, label %176
176: ; preds = %161
%177 = load double, double* %4
%178 = load double, double* @dlacon_.estold
%179 = fcmp ugt double %177, %178
br i1 %179, label %180, label %224
180: ; preds = %176
store i32 0, i32* @dlacon_.i
%181 = load i32, i32* %0
%182 = icmp sgt i32 %181, 0
br i1 %182, label %183, label %205
183: ; preds = %180, %197
%184 = phi i32 [ %202, %197 ], [ 0, %180 ]
%185 = sext i32 %184 to i64
%186 = getelementptr inbounds double, double* %2, i64 %185
%187 = load double, double* %186
%188 = fcmp ult double %187, 0.000000e+00
%189 = select i1 %188, double -1.000000e+00, double 1.000000e+00
store double %189, double* %186
br i1 %188, label %193, label %190
190: ; preds = %183
%191 = fadd double %189, 5.000000e-01
%192 = call i32 @floor(double %191)
br label %197
193: ; preds = %183
%194 = fsub double 5.000000e-01, %189
%195 = call i32 @floor(double %194)
%196 = sub nsw i32 0, %195
br label %197
197: ; preds = %193, %190
%198 = phi i32 [ %192, %190 ], [ %196, %193 ]
%199 = load i32, i32* @dlacon_.i
%200 = sext i32 %199 to i64
%201 = getelementptr inbounds i32, i32* %3, i64 %200
store i32 %198, i32* %201
%202 = add nsw i32 %199, 1
store i32 %202, i32* @dlacon_.i
%203 = load i32, i32* %0
%204 = icmp slt i32 %202, %203
br i1 %204, label %183, label %205
205: ; preds = %197, %180
store i32 2, i32* %5
store i32 4, i32* @dlacon_.jump
br label %283
206: ; preds = %102
%207 = load i32, i32* @dlacon_.j
store i32 %207, i32* @dlacon_.jlast
%208 = call i32 @idamax_(i32* %0, double* %2, i32* %8)
%209 = add nsw i32 %208, -1
store i32 %209, i32* @dlacon_.j
%210 = load i32, i32* @dlacon_.jlast
%211 = sext i32 %210 to i64
%212 = getelementptr inbounds double, double* %2, i64 %211
%213 = load double, double* %212
%214 = sext i32 %209 to i64
%215 = getelementptr inbounds double, double* %2, i64 %214
%216 = load double, double* %215
%217 = call double @llvm.fabs.f64(double %216)
%218 = fcmp une double %213, %217
%219 = load i32, i32* @dlacon_.iter
%220 = icmp slt i32 %219, 5
%221 = select i1 %218, i1 %220, i1 false
br i1 %221, label %222, label %224
222: ; preds = %206
%223 = add nsw i32 %219, 1
br label %140
224: ; preds = %176, %206
%225 = load i32, i32* %0
br label %226
226: ; preds = %158, %224
%227 = phi i32 [ %225, %224 ], [ %159, %158 ]
%228 = icmp slt i32 %227, 1
br i1 %228, label %267, label %229
229: ; preds = %226
%230 = add nsw i32 %227, -1
%231 = sitofp i32 %230 to double
%232 = add nuw i32 %227, 1
%233 = zext i32 %227 to i64
%234 = and i64 %233, 1
%235 = icmp eq i32 %232, 2
br i1 %235, label %258, label %236
236: ; preds = %229
%237 = and i64 %233, 4294967294
br label %238
238: ; preds = %238, %236
%239 = phi i64 [ 1, %236 ], [ %253, %238 ]
%240 = phi i64 [ 0, %236 ], [ %254, %238 ]
%241 = add nsw i64 %239, -1
%242 = trunc i64 %241 to i32
%243 = sitofp i32 %242 to double
%244 = fdiv double %243, %231
%245 = fadd double %244, 1.000000e+00
%246 = getelementptr inbounds double, double* %2, i64 %241
store double %245, double* %246
%247 = trunc i64 %239 to i32
%248 = sitofp i32 %247 to double
%249 = fdiv double %248, %231
%250 = fadd double %249, 1.000000e+00
%251 = fneg double %250
%252 = getelementptr inbounds double, double* %2, i64 %239
store double %251, double* %252
%253 = add nuw nsw i64 %239, 2
%254 = add i64 %240, 2
%255 = icmp eq i64 %254, %237
br i1 %255, label %256, label %238
256: ; preds = %238
%257 = add nuw i64 %239, 1
br label %258
258: ; preds = %256, %229
%259 = phi i64 [ 0, %229 ], [ %257, %256 ]
%260 = icmp eq i64 %234, 0
br i1 %260, label %267, label %261
261: ; preds = %258
%262 = trunc i64 %259 to i32
%263 = sitofp i32 %262 to double
%264 = fdiv double %263, %231
%265 = fadd double %264, 1.000000e+00
%266 = getelementptr inbounds double, double* %2, i64 %259
store double %265, double* %266
br label %267
267: ; preds = %261, %258, %152, %226
%268 = phi i32 [ 1, %226 ], [ 1, %152 ], [ %232, %258 ], [ %232, %261 ]
store i32 %268, i32* @dlacon_.i
store i32 1, i32* %5
store i32 5, i32* @dlacon_.jump
br label %283
269: ; preds = %102
%270 = call double @dasum_(i32* %0, double* %2, i32* %8)
%271 = load i32, i32* %0
%272 = mul nsw i32 %271, 3
%273 = sitofp i32 %272 to double
%274 = fdiv double %270, %273
%275 = fmul double %274, 2.000000e+00
%276 = load double, double* %4
%277 = fcmp ogt double %275, %276
br i1 %277, label %278, label %282
278: ; preds = %269
%279 = call i32 @dcopy_(i32* %0, double* %2, i32* %8, double* %1, i32* %8)
br label %280
280: ; preds = %107, %278
%281 = phi double [ %275, %278 ], [ %109, %107 ]
store double %281, double* %4
br label %282
282: ; preds = %280, %269
store i32 0, i32* %5
br label %283
283: ; preds = %282, %267, %205, %148, %136, %100
ret i32 0
}