#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 fabs(double);
double betacf(double a, double b, double x) {
  int em, tem;
  double aold, am, bm, az, qab, qap, qam, bz, d, ap, bp, app, bpp;
  aold = 0;
  em = 0;
  am = bm = az = 1;
  qab = a + b;
  qap = a + 1;
  qam = a - 1;
  bz = 1 - qab * x / qap;
  while (fabs(az - aold) > 1e-7 * fabs(az)) {
    em++;
    tem = em + em;
    d = em * (b - em) * x / (qam + tem) / (a + tem);
    ap = az + d * am;
    bp = bz + d * bm;
    d = -(a + em) * (qab + em) * x / (a + tem) / (qap + tem);
    app = ap + d * az;
    bpp = bp + d * bz;
    aold = az;
    am = ap / bpp;
    bm = bp / bpp;
    az = app / bpp;
    bz = 1;
  }
  return (az);
}


x86 assembly (clang, -O0):
<betacf>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
movsd  %xmm2,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x1c(%rbp)
movsd  0xebf(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xeb2(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  0xea5(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x8(%rbp),%xmm0
addsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xe89(%rip),%xmm0
addsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  0xe72(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x48(%rbp),%xmm1
mulsd  -0x18(%rbp),%xmm1
divsd  -0x50(%rbp),%xmm1
movsd  0xe52(%rip),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x40(%rbp),%xmm0
subsd  -0x28(%rbp),%xmm0
call   1030 <fabs@plt>
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
movsd  -0x40(%rbp),%xmm0
call   1030 <fabs@plt>
movsd  -0x90(%rbp),%xmm0
ff
cvtsi2sd %eax,%xmm2
movsd  0xe18(%rip),%xmm1
mulsd  %xmm2,%xmm1
ucomisd %xmm1,%xmm0
jbe    137f <betacf+0x26f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x20(%rbp)
cvtsi2sdl -0x1c(%rbp),%xmm0
movsd  -0x10(%rbp),%xmm1
cvtsi2sdl -0x1c(%rbp),%xmm2
subsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x18(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm1
cvtsi2sdl -0x20(%rbp),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  -0x8(%rbp),%xmm1
cvtsi2sdl -0x20(%rbp),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x40(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x60(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x8(%rbp),%xmm0
cvtsi2sdl -0x1c(%rbp),%xmm1
addsd  %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  -0x48(%rbp),%xmm1
cvtsi2sdl -0x1c(%rbp),%xmm2
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x18(%rbp),%xmm0
movsd  -0x8(%rbp),%xmm1
cvtsi2sdl -0x20(%rbp),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  -0x50(%rbp),%xmm1
cvtsi2sdl -0x20(%rbp),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x70(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x78(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm0
movsd  -0x60(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x70(%rbp),%xmm0
divsd  -0x88(%rbp),%xmm0
ff
movsd  %xmm0,-0x30(%rbp)
movsd  -0x78(%rbp),%xmm0
divsd  -0x88(%rbp),%xmm0
ff
movsd  %xmm0,-0x38(%rbp)
movsd  -0x80(%rbp),%xmm0
divsd  -0x88(%rbp),%xmm0
ff
movsd  %xmm0,-0x40(%rbp)
movsd  0xc8b(%rip),%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    11b7 <betacf+0xa7>
movsd  -0x40(%rbp),%xmm0
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<betacf>:
push   %rbp
push   %rbx
sub    $0x78,%rsp
movsd  %xmm2,0x28(%rsp)
movsd  %xmm1,0x20(%rsp)
movsd  %xmm0,0x18(%rsp)
movsd  0xed0(%rip),%xmm0
call   1030 <fabs@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  %xmm0,(%rsp)
movsd  0xeb7(%rip),%xmm0
call   1030 <fabs@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0xeb3(%rip),%xmm0
movsd  (%rsp),%xmm1
ucomisd %xmm0,%xmm1
jbe    13da <betacf+0x2ca>
movsd  0x18(%rsp),%xmm6
movapd %xmm6,%xmm4
movsd  0x20(%rsp),%xmm1
addsd  %xmm1,%xmm4
movapd %xmm6,%xmm5
movsd  0xe73(%rip),%xmm8
addsd  %xmm8,%xmm5
movsd  0xe6e(%rip),%xmm3
addsd  %xmm6,%xmm3
movapd %xmm4,%xmm0
movsd  0x28(%rsp),%xmm9
mulsd  %xmm9,%xmm0
divsd  %xmm5,%xmm0
subsd  %xmm0,%xmm8
movsd  0xe49(%rip),%xmm0
addsd  %xmm0,%xmm1
mulsd  %xmm9,%xmm1
movsd  0xe48(%rip),%xmm2
movsd  %xmm3,0x40(%rsp)
addsd  %xmm2,%xmm3
divsd  %xmm3,%xmm1
movapd %xmm6,%xmm3
addsd  %xmm2,%xmm3
divsd  %xmm3,%xmm1
unpcklpd %xmm1,%xmm1
movapd 0xe2a(%rip),%xmm6
unpcklpd %xmm8,%xmm6
addpd  %xmm1,%xmm6
movapd 0xe29(%rip),%xmm1
xorpd  %xmm5,%xmm1
movsd  0xded(%rip),%xmm7
movsd  %xmm4,0x48(%rsp)
addsd  %xmm4,%xmm7
mulsd  %xmm1,%xmm7
mulsd  %xmm9,%xmm7
divsd  %xmm3,%xmm7
movapd %xmm5,0x60(%rsp)
addsd  %xmm5,%xmm2
divsd  %xmm2,%xmm7
movapd %xmm7,%xmm2
addsd  %xmm6,%xmm2
movapd %xmm6,0x30(%rsp)
movapd %xmm6,%xmm1
unpckhpd %xmm6,%xmm1
mulsd  %xmm8,%xmm7
addsd  %xmm1,%xmm7
movapd %xmm7,0x50(%rsp)
divsd  %xmm7,%xmm2
movapd %xmm2,(%rsp)
addsd  %xmm2,%xmm0
call   1030 <fabs@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  %xmm0,0x10(%rsp)
movaps (%rsp),%xmm0
call   1030 <fabs@plt>
movapd (%rsp),%xmm5
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0xd77(%rip),%xmm0
movsd  0x10(%rsp),%xmm1
ucomisd %xmm0,%xmm1
jbe    13e4 <betacf+0x2d4>
movapd 0x50(%rsp),%xmm0
unpcklpd %xmm0,%xmm0
movapd 0x30(%rsp),%xmm4
divpd  %xmm0,%xmm4
mov    $0x4,%ebx
mov    $0x2,%ebp
nopw   0x0(%rax,%rax,1)
xorps  %xmm0,%xmm0
cvtsi2sd %ebp,%xmm0
movsd  0x20(%rsp),%xmm1
subsd  %xmm0,%xmm1
mulsd  %xmm0,%xmm1
movsd  0x28(%rsp),%xmm6
mulsd  %xmm6,%xmm1
xorps  %xmm2,%xmm2
cvtsi2sd %ebx,%xmm2
movsd  0x40(%rsp),%xmm3
addsd  %xmm2,%xmm3
divsd  %xmm3,%xmm1
movapd %xmm2,%xmm3
movsd  0x18(%rsp),%xmm7
addsd  %xmm7,%xmm3
divsd  %xmm3,%xmm1
unpcklpd %xmm1,%xmm1
mulpd  %xmm4,%xmm1
movapd 0xd1a(%rip),%xmm4
movsd  %xmm5,%xmm4
addpd  %xmm1,%xmm4
movsd  0x48(%rsp),%xmm1
addsd  %xmm0,%xmm1
addsd  %xmm7,%xmm0
xorpd  0xcec(%rip),%xmm0
mulsd  %xmm1,%xmm0
mulsd  %xmm6,%xmm0
divsd  %xmm3,%xmm0
addsd  0x60(%rsp),%xmm2
divsd  %xmm2,%xmm0
movapd %xmm4,%xmm1
unpckhpd %xmm4,%xmm1
addsd  %xmm0,%xmm1
mulsd  %xmm5,%xmm0
addsd  %xmm4,%xmm0
divsd  %xmm1,%xmm0
movapd %xmm0,(%rsp)
unpcklpd %xmm1,%xmm1
divpd  %xmm1,%xmm4
movapd %xmm4,0x30(%rsp)
subsd  %xmm5,%xmm0
call   1030 <fabs@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  %xmm0,0x10(%rsp)
movaps (%rsp),%xmm0
call   1030 <fabs@plt>
movapd (%rsp),%xmm0
movapd 0x30(%rsp),%xmm4
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
mulsd  0xc52(%rip),%xmm1
add    $0x2,%ebx
add    $0x1,%ebp
movsd  0x10(%rsp),%xmm2
ucomisd %xmm1,%xmm2
movapd %xmm0,%xmm5
ja     12d0 <betacf+0x1c0>
jmp    13e8 <betacf+0x2d8>
movsd  0xc1e(%rip),%xmm0
jmp    13e8 <betacf+0x2d8>
movapd %xmm5,%xmm0
add    $0x78,%rsp
pop    %rbx
pop    %rbp
ret

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

LLVM IR (-O2):
define double @betacf(double %0, double %1, double %2) {
%4 = fadd double %0, %1
%5 = fadd double %0, 1.000000e+00
%6 = fadd double %0, -1.000000e+00
%7 = fmul double %4, %2
%8 = fdiv double %7, %5
%9 = fsub double 1.000000e+00, %8
%10 = tail call i32 @fabs(double 1.000000e+00)
%11 = sitofp i32 %10 to double
%12 = tail call i32 @fabs(double 1.000000e+00)
%13 = sitofp i32 %12 to double
%14 = fmul double %13, 0x3E7AD7F29ABCAF48
%15 = fcmp olt double %14, %11
br i1 %15, label %16, label %92
16: ; preds = %3
%17 = fadd double %1, -1.000000e+00
%18 = fmul double %17, %2
%19 = fadd double %6, 2.000000e+00
%20 = fdiv double %18, %19
%21 = fadd double %0, 2.000000e+00
%22 = fdiv double %20, %21
%23 = insertelement <2 x double> poison, double %22, i64 0
%24 = shufflevector <2 x double> %23, <2 x double> poison, <2 x i32> zeroinitializer
%25 = insertelement <2 x double> <double 1.000000e+00, double poison>, double %9, i64 1
%26 = fadd <2 x double> %24, %25
%27 = fneg double %5
%28 = fadd double %4, 1.000000e+00
%29 = fmul double %28, %27
%30 = fmul double %29, %2
%31 = fdiv double %30, %21
%32 = fadd double %5, 2.000000e+00
%33 = fdiv double %31, %32
%34 = extractelement <2 x double> %26, i64 0
%35 = fadd double %33, %34
%36 = extractelement <2 x double> %26, i64 1
%37 = tail call double @llvm.fmuladd.f64(double %33, double %9, double %36)
%38 = fdiv double %35, %37
%39 = fadd double %38, -1.000000e+00
%40 = tail call i32 @fabs(double %39)
%41 = sitofp i32 %40 to double
%42 = tail call i32 @fabs(double %38)
%43 = sitofp i32 %42 to double
%44 = fmul double %43, 0x3E7AD7F29ABCAF48
%45 = fcmp olt double %44, %41
br i1 %45, label %46, label %92
46: ; preds = %16
%47 = insertelement <2 x double> poison, double %37, i64 0
%48 = shufflevector <2 x double> %47, <2 x double> poison, <2 x i32> zeroinitializer
%49 = fdiv <2 x double> %26, %48
br label %50
50: ; preds = %46, %50
%51 = phi i32 [ %54, %50 ], [ 1, %46 ]
%52 = phi double [ %84, %50 ], [ %38, %46 ]
%53 = phi <2 x double> [ %83, %50 ], [ %49, %46 ]
%54 = add nuw nsw i32 %51, 1
%55 = shl nuw nsw i32 %54, 1
%56 = sitofp i32 %54 to double
%57 = fsub double %1, %56
%58 = fmul double %57, %56
%59 = fmul double %58, %2
%60 = sitofp i32 %55 to double
%61 = fadd double %6, %60
%62 = fdiv double %59, %61
%63 = fadd double %60, %0
%64 = fdiv double %62, %63
%65 = insertelement <2 x double> poison, double %64, i64 0
%66 = shufflevector <2 x double> %65, <2 x double> poison, <2 x i32> zeroinitializer
%67 = insertelement <2 x double> <double poison, double 1.000000e+00>, double %52, i64 0
%68 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %66, <2 x double> %53, <2 x double> %67)
%69 = fadd double %56, %0
%70 = fneg double %69
%71 = fadd double %4, %56
%72 = fmul double %71, %70
%73 = fmul double %72, %2
%74 = fdiv double %73, %63
%75 = fadd double %5, %60
%76 = fdiv double %74, %75
%77 = extractelement <2 x double> %68, i64 0
%78 = tail call double @llvm.fmuladd.f64(double %76, double %52, double %77)
%79 = extractelement <2 x double> %68, i64 1
%80 = fadd double %76, %79
%81 = insertelement <2 x double> poison, double %80, i64 0
%82 = shufflevector <2 x double> %81, <2 x double> poison, <2 x i32> zeroinitializer
%83 = fdiv <2 x double> %68, %82
%84 = fdiv double %78, %80
%85 = fsub double %84, %52
%86 = tail call i32 @fabs(double %85)
%87 = sitofp i32 %86 to double
%88 = tail call i32 @fabs(double %84)
%89 = sitofp i32 %88 to double
%90 = fmul double %89, 0x3E7AD7F29ABCAF48
%91 = fcmp olt double %90, %87
br i1 %91, label %50, label %92
92: ; preds = %50, %16, %3
%93 = phi double [ 1.000000e+00, %3 ], [ %38, %16 ], [ %84, %50 ]
ret double %93
}