#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 */
int M_1_PI;
double M_2_PI;
int M_PI;
long double P(unsigned int, double *);
long double Q(unsigned int, double *);
int ___jn(int, double *);
long double cos(long double);
double log(double);
long double sin(long double);
long double sqrt(double);
long double ___yn(int n, double *x) {
  long double Sum1;
  long double Sum2;
  long double Fact1;
  long double Fact2;
  long double F1;
  long double F2;
  long double y;
  register int i;
  double xx;
  long double Xi;
  unsigned int My;
  if (((((short *)(void *)&x[0])[3] & 0x7FF0) >> 4) == 0)
    return -1. / 0.;
  if ((x[0] >= (n >= 32 ? 25.8 : (n < 8 ? 17.4 + 0.1 * n : 16.2 + 0.3 * n)))) {
    Xi = x[0] - M_PI * (n * 0.5 + 0.25);
    My = n * n << 2;
    return sqrt(M_2_PI / x[0]) * (P(My, x) * sin(Xi) + Q(My, x) * cos(Xi));
  }
  Sum1 = Sum2 = F1 = F2 = 0;
  Fact1 = 1. / (xx = x[0] * 0.5);
  Fact2 = 1.;
  y = xx * xx;
  for (i = 1; i < n; i++)
    Fact1 *= (n - i) / xx;
  for (i = 1; i <= n; i++) {
    Sum1 += Fact1;
    if (i == n)
      break;
    Fact1 *= y / (i * (n - i));
  }
  for (i = 1; i <= n; i++) {
    Fact2 *= xx / i;
    F1 += 1. / i;
  }
  for (i = 1;; i++) {
    Sum2 += Fact2 * (F1 + F2);
    Fact2 *= -y / (i * (n + i));
    if (((((short *)(void *)&Sum2)[4] & 0x7FFF) >> 0) -
                ((((short *)(void *)&Fact2)[4] & 0x7FFF) >> 0) >
            53 ||
        !((((short *)(void *)&Fact2)[4] & 0x7FFF) >> 0))
      break;
    F1 += 1. / (n + i);
    F2 += 1. / i;
  }
  return M_1_PI *
         (2. * (0.5772156649015328 + log(xx)) * ___jn(n, x) - Sum1 - Sum2);
}


x86 assembly (clang, -O0):
<___yn>:
push   %rbp
mov    %rsp,%rbp
sub    $0x180,%rsp
mov    %edi,-0x14(%rbp)
mov    %rsi,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movswl 0x6(%rax),%eax
and    $0x7ff0,%eax
sar    $0x4,%eax
cmp    $0x0,%eax
jne    11a9 <___yn+0x39>
flds   0xea7(%rip)
fstpt  -0x10(%rbp)
jmp    168d <___yn+0x51d>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x118(%rbp)
ff
cmpl   $0x20,-0x14(%rbp)
jl     11d8 <___yn+0x68>
movsd  0xe55(%rip),%xmm0
movsd  %xmm0,-0x120(%rbp)
ff
jmp    1241 <___yn+0xd1>
cmpl   $0x8,-0x14(%rbp)
jge    120c <___yn+0x9c>
cvtsi2sdl -0x14(%rbp),%xmm0
movsd  0xe21(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  0xe1d(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x128(%rbp)
ff
jmp    1231 <___yn+0xc1>
cvtsi2sdl -0x14(%rbp),%xmm0
movsd  0xde7(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  0xde3(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x128(%rbp)
ff
movsd  -0x128(%rbp),%xmm0
ff
movsd  %xmm0,-0x120(%rbp)
ff
movsd  -0x118(%rbp),%xmm0
ff
movsd  -0x120(%rbp),%xmm1
ff
ucomisd %xmm1,%xmm0
jb     1352 <___yn+0x1e2>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    0x2d7e(%rip),%rax
cvtsi2sdl (%rax),%xmm1
cvtsi2sdl -0x14(%rbp),%xmm2
movsd  0xdad(%rip),%xmm3
mulsd  %xmm3,%xmm2
movsd  0xdb9(%rip),%xmm3
addsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x110(%rbp)
ff
fldl   -0x110(%rbp)
fstpt  -0xb0(%rbp)
mov    -0x14(%rbp),%eax
imul   %eax,%eax
shl    $0x2,%eax
mov    %eax,-0xb4(%rbp)
mov    0x2d0b(%rip),%rax
movsd  (%rax),%xmm0
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm1
divsd  %xmm1,%xmm0
call   1090 <sqrt@plt>
fstpt  -0x134(%rbp)
mov    -0xb4(%rbp),%edi
mov    -0x20(%rbp),%rsi
call   1030 <P@plt>
fstpt  -0x140(%rbp)
fldt   -0xb0(%rbp)
mov    %rsp,%rax
fstpt  (%rax)
call   1040 <sin@plt>
fstpt  -0x14c(%rbp)
mov    -0xb4(%rbp),%edi
mov    -0x20(%rbp),%rsi
call   1050 <Q@plt>
fstpt  -0x158(%rbp)
fldt   -0xb0(%rbp)
mov    %rsp,%rax
fstpt  (%rax)
call   1070 <cos@plt>
fldt   -0x158(%rbp)
fldt   -0x14c(%rbp)
fldt   -0x140(%rbp)
fldt   -0x134(%rbp)
fxch   %st(3)
fmulp  %st,%st(4)
fmulp  %st,%st(1)
faddp  %st,%st(2)
fmulp  %st,%st(1)
fstpt  -0x10(%rbp)
jmp    168d <___yn+0x51d>
fldz
fld    %st(0)
fstpt  -0x80(%rbp)
fld    %st(0)
fstpt  -0x70(%rbp)
fld    %st(0)
fstpt  -0x40(%rbp)
fstpt  -0x30(%rbp)
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm1
movsd  0xcb2(%rip),%xmm0
mulsd  %xmm0,%xmm1
movsd  %xmm1,-0xa0(%rbp)
ff
movsd  0xca6(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xc0(%rbp)
ff
fldl   -0xc0(%rbp)
fstpt  -0x50(%rbp)
fld1
fstpt  -0x60(%rbp)
movsd  -0xa0(%rbp),%xmm0
ff
mulsd  %xmm0,%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
fldl   -0xc8(%rbp)
fstpt  -0x90(%rbp)
movl   $0x1,-0x94(%rbp)
mov    -0x94(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1422 <___yn+0x2b2>
mov    -0x14(%rbp),%eax
mov    -0x94(%rbp),%ecx
sub    %ecx,%eax
cvtsi2sd %eax,%xmm0
movsd  -0xa0(%rbp),%xmm1
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x108(%rbp)
ff
fldl   -0x108(%rbp)
fldt   -0x50(%rbp)
fmulp  %st,%st(1)
fstpt  -0x50(%rbp)
mov    -0x94(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x94(%rbp)
jmp    13ce <___yn+0x25e>
movl   $0x1,-0x94(%rbp)
mov    -0x94(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1498 <___yn+0x328>
fldt   -0x50(%rbp)
fldt   -0x30(%rbp)
faddp  %st,%st(1)
fstpt  -0x30(%rbp)
mov    -0x94(%rbp),%eax
cmp    -0x14(%rbp),%eax
jne    145a <___yn+0x2ea>
jmp    1498 <___yn+0x328>
fldt   -0x90(%rbp)
mov    -0x94(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    %eax,%ecx
imul   %ecx,%eax
mov    %eax,-0xcc(%rbp)
fildl  -0xcc(%rbp)
fdivrp %st,%st(1)
fldt   -0x50(%rbp)
fmulp  %st,%st(1)
fstpt  -0x50(%rbp)
mov    -0x94(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x94(%rbp)
jmp    142c <___yn+0x2bc>
movl   $0x1,-0x94(%rbp)
mov    -0x94(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1519 <___yn+0x3a9>
movsd  -0xa0(%rbp),%xmm0
ff
cvtsi2sdl -0x94(%rbp),%xmm1
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xf8(%rbp)
ff
fldl   -0xf8(%rbp)
fldt   -0x60(%rbp)
fmulp  %st,%st(1)
fstpt  -0x60(%rbp)
cvtsi2sdl -0x94(%rbp),%xmm1
ff
movsd  0xb45(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x100(%rbp)
ff
fldl   -0x100(%rbp)
fldt   -0x70(%rbp)
faddp  %st,%st(1)
fstpt  -0x70(%rbp)
mov    -0x94(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x94(%rbp)
jmp    14a2 <___yn+0x332>
movl   $0x1,-0x94(%rbp)
fldt   -0x60(%rbp)
fldt   -0x70(%rbp)
fldt   -0x80(%rbp)
faddp  %st,%st(1)
fldt   -0x40(%rbp)
fxch   %st(2)
fmulp  %st,%st(1)
faddp  %st,%st(1)
fstpt  -0x40(%rbp)
fldt   -0x90(%rbp)
fchs
mov    -0x94(%rbp),%eax
mov    -0x14(%rbp),%ecx
add    %eax,%ecx
imul   %ecx,%eax
mov    %eax,-0xd0(%rbp)
fildl  -0xd0(%rbp)
fdivrp %st,%st(1)
fldt   -0x60(%rbp)
fmulp  %st,%st(1)
fstpt  -0x60(%rbp)
movswl -0x38(%rbp),%eax
and    $0x7fff,%eax
sar    $0x0,%eax
movswl -0x58(%rbp),%ecx
and    $0x7fff,%ecx
sar    $0x0,%ecx
sub    %ecx,%eax
cmp    $0x35,%eax
jg     159f <___yn+0x42f>
movswl -0x58(%rbp),%eax
and    $0x7fff,%eax
sar    $0x0,%eax
cmp    $0x0,%eax
jne    15a4 <___yn+0x434>
jmp    160e <___yn+0x49e>
mov    -0x14(%rbp),%eax
mov    -0x94(%rbp),%ecx
add    %ecx,%eax
cvtsi2sd %eax,%xmm2
movsd  0xa75(%rip),%xmm0
movaps %xmm0,%xmm1
divsd  %xmm2,%xmm1
movsd  %xmm1,-0xd8(%rbp)
ff
fldl   -0xd8(%rbp)
fldt   -0x70(%rbp)
faddp  %st,%st(1)
fstpt  -0x70(%rbp)
cvtsi2sdl -0x94(%rbp),%xmm1
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xe0(%rbp)
ff
fldl   -0xe0(%rbp)
fldt   -0x80(%rbp)
faddp  %st,%st(1)
fstpt  -0x80(%rbp)
mov    -0x94(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x94(%rbp)
jmp    1523 <___yn+0x3b3>
mov    0x29c3(%rip),%rax
mov    (%rax),%eax
mov    %eax,-0xe4(%rbp)
fildl  -0xe4(%rbp)
fstpt  -0x164(%rbp)
movsd  -0xa0(%rbp),%xmm0
ff
call   1080 <log@plt>
movsd  0x9fa(%rip),%xmm1
addsd  %xmm1,%xmm0
addsd  %xmm0,%xmm0
movsd  %xmm0,-0x170(%rbp)
ff
mov    -0x14(%rbp),%edi
mov    -0x20(%rbp),%rsi
call   1060 <___jn@plt>
movsd  -0x170(%rbp),%xmm0
ff
fldt   -0x164(%rbp)
cvtsi2sd %eax,%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0xf0(%rbp)
ff
fldl   -0xf0(%rbp)
fldt   -0x30(%rbp)
fsubrp %st,%st(1)
fldt   -0x40(%rbp)
fsubrp %st,%st(1)
fmulp  %st,%st(1)
fstpt  -0x10(%rbp)
fldt   -0x10(%rbp)
add    $0x180,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<___yn>:
push   %r14
push   %rbx
sub    $0xe8,%rsp
movzwl 0x6(%rsi),%eax
flds   0xe7c(%rip)
test   $0x7ff0,%eax
je     15e3 <___yn+0x473>
mov    %rsi,%r14
mov    %edi,%ebx
fstp   %st(0)
movsd  (%rsi),%xmm0
cvtsi2sd %edi,%xmm1
cmp    $0x1f,%edi
jle    11b6 <___yn+0x46>
movsd  0xe5d(%rip),%xmm2
ucomisd %xmm2,%xmm0
jae    11dd <___yn+0x6d>
jmp    12bc <___yn+0x14c>
cmp    $0x7,%ebx
jg     129e <___yn+0x12e>
movsd  0xe59(%rip),%xmm2
mulsd  %xmm1,%xmm2
addsd  0xe55(%rip),%xmm2
ucomisd %xmm2,%xmm0
jb     12bc <___yn+0x14c>
mov    0x2e04(%rip),%rax
xorps  %xmm2,%xmm2
cvtsi2sdl (%rax),%xmm2
mulsd  0xe3d(%rip),%xmm1
addsd  0xe3d(%rip),%xmm1
mulsd  %xmm2,%xmm1
movapd %xmm0,%xmm2
subsd  %xmm1,%xmm2
movsd  %xmm2,0xa8(%rsp)
fldl   0xa8(%rsp)
fstpt  0x28(%rsp)
imul   %ebx,%ebx
shl    $0x2,%ebx
mov    0x2da0(%rip),%rax
movsd  (%rax),%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1090 <sqrt@plt>
fstpt  0x48(%rsp)
mov    %ebx,%edi
mov    %r14,%rsi
call   1030 <P@plt>
fstpt  0x1c(%rsp)
fldt   0x28(%rsp)
fstpt  (%rsp)
call   1040 <sin@plt>
fstpt  0xdc(%rsp)
mov    %ebx,%edi
mov    %r14,%rsi
call   1050 <Q@plt>
fstpt  0xd0(%rsp)
fldt   0x28(%rsp)
fstpt  (%rsp)
call   1070 <cos@plt>
fldt   0xd0(%rsp)
fmulp  %st,%st(1)
fldt   0x1c(%rsp)
fldt   0xdc(%rsp)
fmulp  %st,%st(1)
faddp  %st,%st(1)
fldt   0x48(%rsp)
fmulp  %st,%st(1)
jmp    15e3 <___yn+0x473>
movsd  0xd6a(%rip),%xmm2
mulsd  %xmm1,%xmm2
addsd  0xd66(%rip),%xmm2
ucomisd %xmm2,%xmm0
jae    11dd <___yn+0x6d>
mulsd  0xd6c(%rip),%xmm0
movsd  0xd74(%rip),%xmm1
movapd %xmm1,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,0x98(%rsp)
fldl   0x98(%rsp)
movapd %xmm0,%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0xa0(%rsp)
fldl   0xa0(%rsp)
cmp    $0x2,%ebx
jl     13b9 <___yn+0x249>
lea    -0x1(%rbx),%r8d
mov    $0x1,%esi
fldz
cmp    $0x2,%ebx
je     1388 <___yn+0x218>
fstp   %st(0)
lea    -0x2(%rbx),%ecx
mov    %r8d,%edx
and    $0xfffffffe,%edx
neg    %edx
mov    $0x1,%edi
fldz
fxch   %st(2)
nopl   0x0(%rax,%rax,1)
fstp   %st(2)
lea    0x1(%rcx),%esi
xorps  %xmm2,%xmm2
cvtsi2sd %esi,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,0x88(%rsp)
fxch   %st(1)
fmull  0x88(%rsp)
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,0x90(%rsp)
fmull  0x90(%rsp)
add    $0xfffffffe,%ecx
mov    %edi,%esi
add    $0x2,%esi
lea    (%rdx,%rdi,1),%eax
add    $0x2,%eax
fld    %st(0)
mov    %esi,%edi
cmp    $0x1,%eax
fxch   %st(2)
fxch   %st(1)
jne    1330 <___yn+0x1c0>
test   $0x1,%r8b
je     13bd <___yn+0x24d>
fstp   %st(0)
mov    %ebx,%eax
sub    %esi,%eax
xorps  %xmm2,%xmm2
cvtsi2sd %eax,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,0x80(%rsp)
fxch   %st(1)
fmull  0x80(%rsp)
fldz
fxch   %st(2)
fxch   %st(1)
jmp    13bd <___yn+0x24d>
fldz
fxch   %st(2)
fstp   %st(2)
fld1
fldz
test   %ebx,%ebx
jle    13db <___yn+0x26b>
fldz
fld    %st(4)
fadd   %st(1),%st
cmp    $0x1,%ebx
jne    13ea <___yn+0x27a>
fstp   %st(5)
fstp   %st(0)
jmp    1476 <___yn+0x306>
fstp   %st(3)
fld    %st(2)
fstpt  0x1c(%rsp)
fld    %st(2)
jmp    14e1 <___yn+0x371>
lea    -0x1(%rbx),%r8d
mov    $0x1,%edi
cmp    $0x2,%ebx
je     1453 <___yn+0x2e3>
fstp   %st(1)
mov    %r8d,%ecx
and    $0xfffffffe,%ecx
neg    %ecx
mov    $0x1,%esi
mov    %r8d,%edx
fldz
nopl   0x0(%rax)
fstp   %st(0)
mov    %edx,%edi
imul   %esi,%edi
mov    %edi,0x40(%rsp)
fld    %st(3)
fidivl 0x40(%rsp)
fmulp  %st,%st(5)
lea    0x1(%rsi),%edi
fadd   %st(4),%st
lea    -0x1(%rdx),%eax
imul   %edi,%eax
mov    %eax,0x44(%rsp)
fld    %st(3)
fidivl 0x44(%rsp)
fmulp  %st,%st(5)
fadd   %st(4),%st
add    $0xfffffffe,%edx
mov    %esi,%edi
add    $0x2,%edi
lea    (%rcx,%rsi,1),%eax
add    $0x2,%eax
mov    %edi,%esi
fld    %st(0)
cmp    $0x1,%eax
jne    1410 <___yn+0x2a0>
test   $0x1,%r8b
fxch   %st(1)
fxch   %st(5)
fxch   %st(1)
je     147a <___yn+0x30a>
fstp   %st(5)
mov    %ebx,%eax
sub    %edi,%eax
imul   %edi,%eax
mov    %eax,0x3c(%rsp)
fld    %st(3)
fidivl 0x3c(%rsp)
fmulp  %st,%st(1)
faddp  %st,%st(4)
fldz
fldz
fstp   %st(1)
fstp   %st(0)
fldz
test   %ebx,%ebx
fxch   %st(4)
fstpt  0x1c(%rsp)
jle    14df <___yn+0x36f>
fstp   %st(1)
fstp   %st(2)
mov    %ebx,%eax
neg    %eax
fld1
mov    $0x1,%ecx
fldz
nopl   0x0(%rax,%rax,1)
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
movapd %xmm0,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,0x70(%rsp)
fxch   %st(1)
fmull  0x70(%rsp)
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,0x78(%rsp)
fxch   %st(1)
faddl  0x78(%rsp)
lea    (%rax,%rcx,1),%edx
add    $0x1,%edx
add    $0x1,%ecx
cmp    $0x1,%edx
jne    14a0 <___yn+0x330>
jmp    14e1 <___yn+0x371>
fxch   %st(3)
fxch   %st(2)
fchs
mov    $0x1,%eax
fld    %st(3)
nopl   0x0(%rax)
fld    %st(0)
fadd   %st(4),%st
fmul   %st(3),%st
faddp  %st,%st(5)
fld    %st(4)
fstpt  0xc0(%rsp)
lea    (%rbx,%rax,1),%ecx
mov    %ecx,%edx
imul   %eax,%edx
mov    %edx,0x38(%rsp)
fld    %st(1)
fidivl 0x38(%rsp)
fmulp  %st,%st(3)
fld    %st(2)
fstpt  0xb0(%rsp)
movzwl 0xb8(%rsp),%edx
movzwl 0xc8(%rsp),%esi
and    $0x7fff,%esi
and    $0x7fff,%edx
sub    %edx,%esi
cmp    $0x35,%esi
jg     1584 <___yn+0x414>
test   %dx,%dx
je     1584 <___yn+0x414>
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,0x68(%rsp)
fxch   %st(3)
faddl  0x68(%rsp)
xorps  %xmm2,%xmm2
cvtsi2sd %eax,%xmm2
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,0x60(%rsp)
fxch   %st(3)
faddl  0x60(%rsp)
add    $0x1,%eax
jmp    14f0 <___yn+0x380>
fstp   %st(1)
fstp   %st(1)
fstp   %st(1)
fstp   %st(0)
mov    0x2a45(%rip),%rax
mov    (%rax),%eax
mov    %eax,0x34(%rsp)
fstpt  0x28(%rsp)
call   1080 <log@plt>
addsd  0xa9e(%rip),%xmm0
addsd  %xmm0,%xmm0
movsd  %xmm0,0x48(%rsp)
mov    %ebx,%edi
mov    %r14,%rsi
call   1060 <___jn@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0x48(%rsp),%xmm0
movsd  %xmm0,0x58(%rsp)
fldt   0x1c(%rsp)
fsubrl 0x58(%rsp)
fldt   0x28(%rsp)
fsubrp %st,%st(1)
fimull 0x34(%rsp)
add    $0xe8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
@M_PI = global i32 0
@M_2_PI = global double 0.000000e+00
@M_1_PI = global i32 0
define x86_fp80 @___yn(i32 %0, double* %1) {
%3 = alloca x86_fp80
%4 = alloca i32
%5 = alloca double*
%6 = alloca x86_fp80
%7 = alloca x86_fp80
%8 = alloca x86_fp80
%9 = alloca x86_fp80
%10 = alloca x86_fp80
%11 = alloca x86_fp80
%12 = alloca x86_fp80
%13 = alloca i32
%14 = alloca double
%15 = alloca x86_fp80
%16 = alloca i32
store i32 %0, i32* %4
store double* %1, double** %5
%17 = load double*, double** %5
%18 = getelementptr inbounds double, double* %17, i64 0
%19 = bitcast double* %18 to i8*
%20 = bitcast i8* %19 to i16*
%21 = getelementptr inbounds i16, i16* %20, i64 3
%22 = load i16, i16* %21
%23 = sext i16 %22 to i32
%24 = and i32 %23, 32752
%25 = ashr i32 %24, 4
%26 = icmp eq i32 %25, 0
br i1 %26, label %27, label %28
27: ; preds = %2
store x86_fp80 0xKFFFF8000000000000000, x86_fp80* %3
br label %244
28: ; preds = %2
%29 = load double*, double** %5
%30 = getelementptr inbounds double, double* %29, i64 0
%31 = load double, double* %30
%32 = load i32, i32* %4
%33 = icmp sge i32 %32, 32
br i1 %33, label %34, label %35
34: ; preds = %28
br label %48
35: ; preds = %28
%36 = load i32, i32* %4
%37 = icmp slt i32 %36, 8
br i1 %37, label %38, label %42
38: ; preds = %35
%39 = load i32, i32* %4
%40 = sitofp i32 %39 to double
%41 = call double @llvm.fmuladd.f64(double 1.000000e-01, double %40, double 1.740000e+01)
br label %46
42: ; preds = %35
%43 = load i32, i32* %4
%44 = sitofp i32 %43 to double
%45 = call double @llvm.fmuladd.f64(double 3.000000e-01, double %44, double 1.620000e+01)
br label %46
46: ; preds = %42, %38
%47 = phi double [ %41, %38 ], [ %45, %42 ]
br label %48
48: ; preds = %46, %34
%49 = phi double [ 2.580000e+01, %34 ], [ %47, %46 ]
%50 = fcmp oge double %31, %49
br i1 %50, label %51, label %86
51: ; preds = %48
%52 = load double*, double** %5
%53 = getelementptr inbounds double, double* %52, i64 0
%54 = load double, double* %53
%55 = load i32, i32* @M_PI
%56 = sitofp i32 %55 to double
%57 = load i32, i32* %4
%58 = sitofp i32 %57 to double
%59 = call double @llvm.fmuladd.f64(double %58, double 5.000000e-01, double 2.500000e-01)
%60 = fneg double %56
%61 = call double @llvm.fmuladd.f64(double %60, double %59, double %54)
%62 = fpext double %61 to x86_fp80
store x86_fp80 %62, x86_fp80* %15
%63 = load i32, i32* %4
%64 = load i32, i32* %4
%65 = mul nsw i32 %63, %64
%66 = shl i32 %65, 2
store i32 %66, i32* %16
%67 = load double, double* @M_2_PI
%68 = load double*, double** %5
%69 = getelementptr inbounds double, double* %68, i64 0
%70 = load double, double* %69
%71 = fdiv double %67, %70
%72 = call x86_fp80 @sqrt(double %71)
%73 = load i32, i32* %16
%74 = load double*, double** %5
%75 = call x86_fp80 @P(i32 %73, double* %74)
%76 = load x86_fp80, x86_fp80* %15
%77 = call x86_fp80 @sin(x86_fp80 %76)
%78 = load i32, i32* %16
%79 = load double*, double** %5
%80 = call x86_fp80 @Q(i32 %78, double* %79)
%81 = load x86_fp80, x86_fp80* %15
%82 = call x86_fp80 @cos(x86_fp80 %81)
%83 = fmul x86_fp80 %80, %82
%84 = call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %75, x86_fp80 %77, x86_fp80 %83)
%85 = fmul x86_fp80 %72, %84
store x86_fp80 %85, x86_fp80* %3
br label %244
86: ; preds = %48
store x86_fp80 0xK00000000000000000000, x86_fp80* %11
store x86_fp80 0xK00000000000000000000, x86_fp80* %10
store x86_fp80 0xK00000000000000000000, x86_fp80* %7
store x86_fp80 0xK00000000000000000000, x86_fp80* %6
%87 = load double*, double** %5
%88 = getelementptr inbounds double, double* %87, i64 0
%89 = load double, double* %88
%90 = fmul double %89, 5.000000e-01
store double %90, double* %14
%91 = fdiv double 1.000000e+00, %90
%92 = fpext double %91 to x86_fp80
store x86_fp80 %92, x86_fp80* %8
store x86_fp80 0xK3FFF8000000000000000, x86_fp80* %9
%93 = load double, double* %14
%94 = load double, double* %14
%95 = fmul double %93, %94
%96 = fpext double %95 to x86_fp80
store x86_fp80 %96, x86_fp80* %12
store i32 1, i32* %13
br label %97
97: ; preds = %111, %86
%98 = load i32, i32* %13
%99 = load i32, i32* %4
%100 = icmp slt i32 %98, %99
br i1 %100, label %101, label %114
101: ; preds = %97
%102 = load i32, i32* %4
%103 = load i32, i32* %13
%104 = sub nsw i32 %102, %103
%105 = sitofp i32 %104 to double
%106 = load double, double* %14
%107 = fdiv double %105, %106
%108 = fpext double %107 to x86_fp80
%109 = load x86_fp80, x86_fp80* %8
%110 = fmul x86_fp80 %109, %108
store x86_fp80 %110, x86_fp80* %8
br label %111
111: ; preds = %101
%112 = load i32, i32* %13
%113 = add nsw i32 %112, 1
store i32 %113, i32* %13
br label %97
114: ; preds = %97
store i32 1, i32* %13
br label %115
115: ; preds = %138, %114
%116 = load i32, i32* %13
%117 = load i32, i32* %4
%118 = icmp sle i32 %116, %117
br i1 %118, label %119, label %141
119: ; preds = %115
%120 = load x86_fp80, x86_fp80* %8
%121 = load x86_fp80, x86_fp80* %6
%122 = fadd x86_fp80 %121, %120
store x86_fp80 %122, x86_fp80* %6
%123 = load i32, i32* %13
%124 = load i32, i32* %4
%125 = icmp eq i32 %123, %124
br i1 %125, label %126, label %127
126: ; preds = %119
br label %141
127: ; preds = %119
%128 = load x86_fp80, x86_fp80* %12
%129 = load i32, i32* %13
%130 = load i32, i32* %4
%131 = load i32, i32* %13
%132 = sub nsw i32 %130, %131
%133 = mul nsw i32 %129, %132
%134 = sitofp i32 %133 to x86_fp80
%135 = fdiv x86_fp80 %128, %134
%136 = load x86_fp80, x86_fp80* %8
%137 = fmul x86_fp80 %136, %135
store x86_fp80 %137, x86_fp80* %8
br label %138
138: ; preds = %127
%139 = load i32, i32* %13
%140 = add nsw i32 %139, 1
store i32 %140, i32* %13
br label %115
141: ; preds = %126, %115
store i32 1, i32* %13
br label %142
142: ; preds = %160, %141
%143 = load i32, i32* %13
%144 = load i32, i32* %4
%145 = icmp sle i32 %143, %144
br i1 %145, label %146, label %163
146: ; preds = %142
%147 = load double, double* %14
%148 = load i32, i32* %13
%149 = sitofp i32 %148 to double
%150 = fdiv double %147, %149
%151 = fpext double %150 to x86_fp80
%152 = load x86_fp80, x86_fp80* %9
%153 = fmul x86_fp80 %152, %151
store x86_fp80 %153, x86_fp80* %9
%154 = load i32, i32* %13
%155 = sitofp i32 %154 to double
%156 = fdiv double 1.000000e+00, %155
%157 = fpext double %156 to x86_fp80
%158 = load x86_fp80, x86_fp80* %10
%159 = fadd x86_fp80 %158, %157
store x86_fp80 %159, x86_fp80* %10
br label %160
160: ; preds = %146
%161 = load i32, i32* %13
%162 = add nsw i32 %161, 1
store i32 %162, i32* %13
br label %142
163: ; preds = %142
store i32 1, i32* %13
br label %164
164: ; preds = %223, %163
%165 = load x86_fp80, x86_fp80* %9
%166 = load x86_fp80, x86_fp80* %10
%167 = load x86_fp80, x86_fp80* %11
%168 = fadd x86_fp80 %166, %167
%169 = load x86_fp80, x86_fp80* %7
%170 = call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %165, x86_fp80 %168, x86_fp80 %169)
store x86_fp80 %170, x86_fp80* %7
%171 = load x86_fp80, x86_fp80* %12
%172 = fneg x86_fp80 %171
%173 = load i32, i32* %13
%174 = load i32, i32* %4
%175 = load i32, i32* %13
%176 = add nsw i32 %174, %175
%177 = mul nsw i32 %173, %176
%178 = sitofp i32 %177 to x86_fp80
%179 = fdiv x86_fp80 %172, %178
%180 = load x86_fp80, x86_fp80* %9
%181 = fmul x86_fp80 %180, %179
store x86_fp80 %181, x86_fp80* %9
%182 = bitcast x86_fp80* %7 to i8*
%183 = bitcast i8* %182 to i16*
%184 = getelementptr inbounds i16, i16* %183, i64 4
%185 = load i16, i16* %184
%186 = sext i16 %185 to i32
%187 = and i32 %186, 32767
%188 = ashr i32 %187, 0
%189 = bitcast x86_fp80* %9 to i8*
%190 = bitcast i8* %189 to i16*
%191 = getelementptr inbounds i16, i16* %190, i64 4
%192 = load i16, i16* %191
%193 = sext i16 %192 to i32
%194 = and i32 %193, 32767
%195 = ashr i32 %194, 0
%196 = sub nsw i32 %188, %195
%197 = icmp sgt i32 %196, 53
br i1 %197, label %207, label %198
198: ; preds = %164
%199 = bitcast x86_fp80* %9 to i8*
%200 = bitcast i8* %199 to i16*
%201 = getelementptr inbounds i16, i16* %200, i64 4
%202 = load i16, i16* %201
%203 = sext i16 %202 to i32
%204 = and i32 %203, 32767
%205 = ashr i32 %204, 0
%206 = icmp ne i32 %205, 0
br i1 %206, label %208, label %207
207: ; preds = %198, %164
br label %226
208: ; preds = %198
%209 = load i32, i32* %4
%210 = load i32, i32* %13
%211 = add nsw i32 %209, %210
%212 = sitofp i32 %211 to double
%213 = fdiv double 1.000000e+00, %212
%214 = fpext double %213 to x86_fp80
%215 = load x86_fp80, x86_fp80* %10
%216 = fadd x86_fp80 %215, %214
store x86_fp80 %216, x86_fp80* %10
%217 = load i32, i32* %13
%218 = sitofp i32 %217 to double
%219 = fdiv double 1.000000e+00, %218
%220 = fpext double %219 to x86_fp80
%221 = load x86_fp80, x86_fp80* %11
%222 = fadd x86_fp80 %221, %220
store x86_fp80 %222, x86_fp80* %11
br label %223
223: ; preds = %208
%224 = load i32, i32* %13
%225 = add nsw i32 %224, 1
store i32 %225, i32* %13
br label %164
226: ; preds = %207
%227 = load i32, i32* @M_1_PI
%228 = sitofp i32 %227 to x86_fp80
%229 = load double, double* %14
%230 = call double @log(double %229)
%231 = fadd double 0x3FE2788CFC6FB618, %230
%232 = fmul double 2.000000e+00, %231
%233 = load i32, i32* %4
%234 = load double*, double** %5
%235 = call i32 @___jn(i32 %233, double* %234)
%236 = sitofp i32 %235 to double
%237 = fmul double %232, %236
%238 = fpext double %237 to x86_fp80
%239 = load x86_fp80, x86_fp80* %6
%240 = fsub x86_fp80 %238, %239
%241 = load x86_fp80, x86_fp80* %7
%242 = fsub x86_fp80 %240, %241
%243 = fmul x86_fp80 %228, %242
store x86_fp80 %243, x86_fp80* %3
br label %244
244: ; preds = %226, %51, %27
%245 = load x86_fp80, x86_fp80* %3
ret x86_fp80 %245
}

LLVM IR (-O2):
@M_PI = global i32 0
@M_2_PI = global double 0.000000e+00
@M_1_PI = global i32 0
define x86_fp80 @___yn(i32 %0, double* %1) {
%3 = bitcast double* %1 to i16*
%4 = getelementptr inbounds i16, i16* %3, i64 3
%5 = load i16, i16* %4
%6 = and i16 %5, 32752
%7 = icmp eq i16 %6, 0
br i1 %7, label %198, label %8
8: ; preds = %2
%9 = load double, double* %1
%10 = icmp sgt i32 %0, 31
br i1 %10, label %18, label %11
11: ; preds = %8
%12 = icmp slt i32 %0, 8
%13 = sitofp i32 %0 to double
br i1 %12, label %14, label %16
14: ; preds = %11
%15 = tail call double @llvm.fmuladd.f64(double %13, double 1.000000e-01, double 1.740000e+01)
br label %18
16: ; preds = %11
%17 = tail call double @llvm.fmuladd.f64(double %13, double 3.000000e-01, double 1.620000e+01)
br label %18
18: ; preds = %14, %16, %8
%19 = phi double [ 2.580000e+01, %8 ], [ %15, %14 ], [ %17, %16 ]
%20 = fcmp ult double %9, %19
br i1 %20, label %41, label %21
21: ; preds = %18
%22 = load i32, i32* @M_PI
%23 = sitofp i32 %22 to double
%24 = sitofp i32 %0 to double
%25 = tail call double @llvm.fmuladd.f64(double %24, double 5.000000e-01, double 2.500000e-01)
%26 = fneg double %23
%27 = tail call double @llvm.fmuladd.f64(double %26, double %25, double %9)
%28 = fpext double %27 to x86_fp80
%29 = shl i32 %0, 2
%30 = mul i32 %29, %0
%31 = load double, double* @M_2_PI
%32 = fdiv double %31, %9
%33 = tail call x86_fp80 @sqrt(double %32)
%34 = tail call x86_fp80 @P(i32 %30, double* %1)
%35 = tail call x86_fp80 @sin(x86_fp80 %28)
%36 = tail call x86_fp80 @Q(i32 %30, double* %1)
%37 = tail call x86_fp80 @cos(x86_fp80 %28)
%38 = fmul x86_fp80 %36, %37
%39 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %34, x86_fp80 %35, x86_fp80 %38)
%40 = fmul x86_fp80 %33, %39
br label %198
41: ; preds = %18
%42 = fmul double %9, 5.000000e-01
%43 = fdiv double 1.000000e+00, %42
%44 = fpext double %43 to x86_fp80
%45 = fmul double %42, %42
%46 = fpext double %45 to x86_fp80
%47 = icmp sgt i32 %0, 1
br i1 %47, label %48, label %65
48: ; preds = %41
%49 = add i32 %0, -1
%50 = and i32 %49, 1
%51 = icmp eq i32 %0, 2
br i1 %51, label %54, label %52
52: ; preds = %48
%53 = and i32 %49, -2
br label %77
54: ; preds = %77, %48
%55 = phi x86_fp80 [ undef, %48 ], [ %91, %77 ]
%56 = phi x86_fp80 [ %44, %48 ], [ %91, %77 ]
%57 = phi i32 [ 1, %48 ], [ %92, %77 ]
%58 = icmp eq i32 %50, 0
br i1 %58, label %65, label %59
59: ; preds = %54
%60 = sub nsw i32 %0, %57
%61 = sitofp i32 %60 to double
%62 = fdiv double %61, %42
%63 = fpext double %62 to x86_fp80
%64 = fmul x86_fp80 %56, %63
br label %65
65: ; preds = %59, %54, %41
%66 = phi x86_fp80 [ %44, %41 ], [ %55, %54 ], [ %64, %59 ]
%67 = icmp slt i32 %0, 1
br i1 %67, label %131, label %68
68: ; preds = %65
%69 = fadd x86_fp80 %66, 0xK00000000000000000000
%70 = icmp eq i32 %0, 1
br i1 %70, label %129, label %71
71: ; preds = %68
%72 = add i32 %0, -1
%73 = and i32 %72, 1
%74 = icmp eq i32 %0, 2
br i1 %74, label %116, label %75
75: ; preds = %71
%76 = and i32 %72, -2
br label %95
77: ; preds = %77, %52
%78 = phi x86_fp80 [ %44, %52 ], [ %91, %77 ]
%79 = phi i32 [ 1, %52 ], [ %92, %77 ]
%80 = phi i32 [ 0, %52 ], [ %93, %77 ]
%81 = sub nsw i32 %0, %79
%82 = sitofp i32 %81 to double
%83 = fdiv double %82, %42
%84 = fpext double %83 to x86_fp80
%85 = fmul x86_fp80 %78, %84
%86 = xor i32 %79, -1
%87 = add i32 %86, %0
%88 = sitofp i32 %87 to double
%89 = fdiv double %88, %42
%90 = fpext double %89 to x86_fp80
%91 = fmul x86_fp80 %85, %90
%92 = add nuw nsw i32 %79, 2
%93 = add i32 %80, 2
%94 = icmp eq i32 %93, %53
br i1 %94, label %54, label %77
95: ; preds = %95, %75
%96 = phi x86_fp80 [ %69, %75 ], [ %113, %95 ]
%97 = phi i32 [ 1, %75 ], [ %112, %95 ]
%98 = phi x86_fp80 [ %66, %75 ], [ %111, %95 ]
%99 = phi i32 [ 0, %75 ], [ %114, %95 ]
%100 = sub nsw i32 %0, %97
%101 = mul nsw i32 %100, %97
%102 = sitofp i32 %101 to x86_fp80
%103 = fdiv x86_fp80 %46, %102
%104 = fmul x86_fp80 %98, %103
%105 = add nuw nsw i32 %97, 1
%106 = fadd x86_fp80 %104, %96
%107 = sub nsw i32 %0, %105
%108 = mul nsw i32 %107, %105
%109 = sitofp i32 %108 to x86_fp80
%110 = fdiv x86_fp80 %46, %109
%111 = fmul x86_fp80 %104, %110
%112 = add nuw nsw i32 %97, 2
%113 = fadd x86_fp80 %111, %106
%114 = add i32 %99, 2
%115 = icmp eq i32 %114, %76
br i1 %115, label %116, label %95
116: ; preds = %95, %71
%117 = phi x86_fp80 [ undef, %71 ], [ %113, %95 ]
%118 = phi x86_fp80 [ %69, %71 ], [ %113, %95 ]
%119 = phi i32 [ 1, %71 ], [ %112, %95 ]
%120 = phi x86_fp80 [ %66, %71 ], [ %111, %95 ]
%121 = icmp eq i32 %73, 0
br i1 %121, label %129, label %122
122: ; preds = %116
%123 = sub nsw i32 %0, %119
%124 = mul nsw i32 %123, %119
%125 = sitofp i32 %124 to x86_fp80
%126 = fdiv x86_fp80 %46, %125
%127 = fmul x86_fp80 %120, %126
%128 = fadd x86_fp80 %127, %118
br label %129
129: ; preds = %122, %116, %68
%130 = phi x86_fp80 [ %69, %68 ], [ %117, %116 ], [ %128, %122 ]
br i1 %67, label %131, label %136
131: ; preds = %136, %65, %129
%132 = phi x86_fp80 [ %130, %129 ], [ 0xK00000000000000000000, %65 ], [ %130, %136 ]
%133 = phi x86_fp80 [ 0xK3FFF8000000000000000, %129 ], [ 0xK3FFF8000000000000000, %65 ], [ %143, %136 ]
%134 = phi x86_fp80 [ 0xK00000000000000000000, %129 ], [ 0xK00000000000000000000, %65 ], [ %146, %136 ]
%135 = fneg x86_fp80 %46
br label %149
136: ; preds = %129, %136
%137 = phi x86_fp80 [ %146, %136 ], [ 0xK00000000000000000000, %129 ]
%138 = phi i32 [ %147, %136 ], [ 1, %129 ]
%139 = phi x86_fp80 [ %143, %136 ], [ 0xK3FFF8000000000000000, %129 ]
%140 = sitofp i32 %138 to double
%141 = fdiv double %42, %140
%142 = fpext double %141 to x86_fp80
%143 = fmul x86_fp80 %139, %142
%144 = fdiv double 1.000000e+00, %140
%145 = fpext double %144 to x86_fp80
%146 = fadd x86_fp80 %137, %145
%147 = add nuw i32 %138, 1
%148 = icmp eq i32 %138, %0
br i1 %148, label %131, label %136
149: ; preds = %131, %175
%150 = phi x86_fp80 [ %156, %175 ], [ 0xK00000000000000000000, %131 ]
%151 = phi x86_fp80 [ %161, %175 ], [ %133, %131 ]
%152 = phi x86_fp80 [ %183, %175 ], [ 0xK00000000000000000000, %131 ]
%153 = phi i32 [ %184, %175 ], [ 1, %131 ]
%154 = phi x86_fp80 [ %179, %175 ], [ %134, %131 ]
%155 = fadd x86_fp80 %152, %154
%156 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %151, x86_fp80 %155, x86_fp80 %150)
%157 = add nsw i32 %153, %0
%158 = mul nsw i32 %157, %153
%159 = sitofp i32 %158 to x86_fp80
%160 = fdiv x86_fp80 %135, %159
%161 = fmul x86_fp80 %151, %160
%162 = bitcast x86_fp80 %156 to i80
%163 = lshr i80 %162, 64
%164 = trunc i80 %163 to i32
%165 = and i32 %164, 32767
%166 = bitcast x86_fp80 %161 to i80
%167 = lshr i80 %166, 64
%168 = trunc i80 %167 to i16
%169 = and i16 %168, 32767
%170 = zext i16 %169 to i32
%171 = sub nsw i32 %165, %170
%172 = icmp sgt i32 %171, 53
%173 = icmp eq i16 %169, 0
%174 = select i1 %172, i1 true, i1 %173
br i1 %174, label %185, label %175
175: ; preds = %149
%176 = sitofp i32 %157 to double
%177 = fdiv double 1.000000e+00, %176
%178 = fpext double %177 to x86_fp80
%179 = fadd x86_fp80 %154, %178
%180 = sitofp i32 %153 to double
%181 = fdiv double 1.000000e+00, %180
%182 = fpext double %181 to x86_fp80
%183 = fadd x86_fp80 %152, %182
%184 = add nuw nsw i32 %153, 1
br label %149
185: ; preds = %149
%186 = load i32, i32* @M_1_PI
%187 = sitofp i32 %186 to x86_fp80
%188 = tail call double @log(double %42)
%189 = fadd double %188, 0x3FE2788CFC6FB618
%190 = fmul double %189, 2.000000e+00
%191 = tail call i32 @___jn(i32 %0, double* %1)
%192 = sitofp i32 %191 to double
%193 = fmul double %190, %192
%194 = fpext double %193 to x86_fp80
%195 = fsub x86_fp80 %194, %132
%196 = fsub x86_fp80 %195, %156
%197 = fmul x86_fp80 %196, %187
br label %198
198: ; preds = %2, %185, %21
%199 = phi x86_fp80 [ %40, %21 ], [ %197, %185 ], [ 0xKFFFF8000000000000000, %2 ]
ret x86_fp80 %199
}