#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 /*<<< orphan*/ printf(char *);
double betafraction(double a, double b, double x) {
  int k, l;
  double d, p0, q0, p1, q1, s0, s1;
  p0 = 0.0;
  q0 = 1.0;
  p1 = 1.0;
  q1 = 1.0;
  for (k = 1; k < 101; k++) {
    d = (a + k) * (a + b + k) * x;
    l = k << 1;
    d = -d / ((a + l) * (a + l + 1.0));
    p0 *= d;
    p0 += p1;
    q0 *= d;
    q0 += q1;
    s0 = p0 / q0;
    d = k * (b - k) * x;
    d = d / ((a + l - 1) * (a + l));
    p1 *= d;
    p1 += p0;
    q1 *= d;
    q1 += q0;
    s1 = p1 / q1;
    if (fabs(1.0 - s0 / s1) < 1.0e-07) {
      return s1;
    }
  }
  printf("a or b is too big!");
  return s1;
}


x86 assembly (clang, -O0):
<betafraction>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
movsd  %xmm0,-0x10(%rbp)
movsd  %xmm1,-0x18(%rbp)
movsd  %xmm2,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  0xec9(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xebc(%rip),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xeaf(%rip),%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x1,-0x24(%rbp)
cmpl   $0x65,-0x24(%rbp)
jge    1336 <betafraction+0x226>
movsd  -0x10(%rbp),%xmm0
cvtsi2sdl -0x24(%rbp),%xmm1
addsd  %xmm1,%xmm0
movsd  -0x10(%rbp),%xmm1
addsd  -0x18(%rbp),%xmm1
cvtsi2sdl -0x24(%rbp),%xmm2
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x24(%rbp),%eax
shl    $0x1,%eax
mov    %eax,-0x28(%rbp)
movsd  -0x30(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  -0x10(%rbp),%xmm1
cvtsi2sdl -0x28(%rbp),%xmm2
addsd  %xmm2,%xmm1
movsd  -0x10(%rbp),%xmm2
cvtsi2sdl -0x28(%rbp),%xmm3
addsd  %xmm3,%xmm2
movsd  0xe21(%rip),%xmm3
addsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x48(%rbp),%xmm0
addsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x50(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x38(%rbp),%xmm0
divsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
cvtsi2sdl -0x24(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm1
cvtsi2sdl -0x24(%rbp),%xmm2
subsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
movsd  -0x10(%rbp),%xmm1
cvtsi2sdl -0x28(%rbp),%xmm2
addsd  %xmm2,%xmm1
movsd  0xd89(%rip),%xmm2
subsd  %xmm2,%xmm1
movsd  -0x10(%rbp),%xmm2
cvtsi2sdl -0x28(%rbp),%xmm3
addsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x38(%rbp),%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x40(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x48(%rbp),%xmm0
divsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x58(%rbp),%xmm0
divsd  -0x60(%rbp),%xmm0
movsd  0xd0d(%rip),%xmm1
subsd  %xmm0,%xmm1
movaps 0xd12(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  0xcfe(%rip),%xmm0
ucomisd %xmm1,%xmm0
jbe    1323 <betafraction+0x213>
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    134c <betafraction+0x23c>
jmp    1328 <betafraction+0x218>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    115d <betafraction+0x4d>
lea    0xce3(%rip),%rdi
call   1030 <printf@plt>
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<betafraction>:
sub    $0x18,%rsp
movapd %xmm0,%xmm13
addsd  %xmm1,%xmm13
mov    $0x1,%eax
xorpd  %xmm15,%xmm15
movsd  0xecf(%rip),%xmm9
mov    $0x2,%ecx
movapd 0xef1(%rip),%xmm10
movsd  0xec8(%rip),%xmm11
movapd %xmm9,%xmm12
movapd %xmm9,%xmm8
movapd %xmm9,%xmm7
nopw   0x0(%rax,%rax,1)
xorps  %xmm14,%xmm14
cvtsi2sd %eax,%xmm14
movapd %xmm13,%xmm3
addsd  %xmm14,%xmm3
movapd %xmm1,%xmm4
subsd  %xmm14,%xmm4
mulsd  %xmm14,%xmm4
addsd  %xmm0,%xmm14
xorpd  0xe91(%rip),%xmm14
mulsd  %xmm14,%xmm3
mulsd  %xmm2,%xmm3
xorps  %xmm6,%xmm6
cvtsi2sd %ecx,%xmm6
addsd  %xmm0,%xmm6
movapd %xmm6,%xmm5
addsd  %xmm9,%xmm5
mulsd  %xmm6,%xmm5
divsd  %xmm5,%xmm3
mulsd  %xmm3,%xmm15
addsd  %xmm8,%xmm15
mulsd  %xmm3,%xmm7
addsd  %xmm12,%xmm7
mulsd  %xmm2,%xmm4
movapd %xmm6,%xmm3
addsd  0xe31(%rip),%xmm3
mulsd  %xmm6,%xmm3
divsd  %xmm3,%xmm4
mulsd  %xmm4,%xmm8
addsd  %xmm15,%xmm8
mulsd  %xmm4,%xmm12
addsd  %xmm7,%xmm12
movapd %xmm15,%xmm3
unpcklpd %xmm8,%xmm3
movapd %xmm7,%xmm4
unpcklpd %xmm12,%xmm4
divpd  %xmm4,%xmm3
movapd %xmm3,%xmm5
unpckhpd %xmm3,%xmm5
divsd  %xmm5,%xmm3
movapd %xmm9,%xmm4
subsd  %xmm3,%xmm4
andpd  %xmm10,%xmm4
ucomisd %xmm4,%xmm11
ja     1250 <betafraction+0x140>
add    $0x1,%eax
add    $0x2,%ecx
cmp    $0x65,%eax
jne    1160 <betafraction+0x50>
lea    0xdff(%rip),%rdi
movapd %xmm5,(%rsp)
call   1030 <printf@plt>
movapd (%rsp),%xmm5
movapd %xmm5,%xmm0
add    $0x18,%rsp
ret

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

LLVM IR (-O2):
@.str = [19 x i8] c"a or b is too big!\00"
define double @betafraction(double %0, double %1, double %2) {
%4 = fadd double %0, %1
br label %8
5: ; preds = %8
%6 = add nuw nsw i32 %13, 1
%7 = icmp eq i32 %6, 101
br i1 %7, label %51, label %8
8: ; preds = %3, %5
%9 = phi double [ 1.000000e+00, %3 ], [ %39, %5 ]
%10 = phi double [ 1.000000e+00, %3 ], [ %37, %5 ]
%11 = phi double [ 1.000000e+00, %3 ], [ %29, %5 ]
%12 = phi double [ 0.000000e+00, %3 ], [ %27, %5 ]
%13 = phi i32 [ 1, %3 ], [ %6, %5 ]
%14 = sitofp i32 %13 to double
%15 = fadd double %14, %0
%16 = fadd double %4, %14
%17 = shl nuw nsw i32 %13, 1
%18 = fneg double %15
%19 = fmul double %16, %18
%20 = fmul double %19, %2
%21 = sitofp i32 %17 to double
%22 = fadd double %21, %0
%23 = fadd double %22, 1.000000e+00
%24 = fmul double %22, %23
%25 = fdiv double %20, %24
%26 = fmul double %12, %25
%27 = fadd double %10, %26
%28 = fmul double %11, %25
%29 = fadd double %9, %28
%30 = fsub double %1, %14
%31 = fmul double %30, %14
%32 = fmul double %31, %2
%33 = fadd double %22, -1.000000e+00
%34 = fmul double %22, %33
%35 = fdiv double %32, %34
%36 = fmul double %10, %35
%37 = fadd double %36, %27
%38 = fmul double %9, %35
%39 = fadd double %38, %29
%40 = insertelement <2 x double> poison, double %27, i64 0
%41 = insertelement <2 x double> %40, double %37, i64 1
%42 = insertelement <2 x double> poison, double %29, i64 0
%43 = insertelement <2 x double> %42, double %39, i64 1
%44 = fdiv <2 x double> %41, %43
%45 = extractelement <2 x double> %44, i64 0
%46 = extractelement <2 x double> %44, i64 1
%47 = fdiv double %45, %46
%48 = fsub double 1.000000e+00, %47
%49 = tail call double @llvm.fabs.f64(double %48)
%50 = fcmp olt double %49, 0x3E7AD7F29ABCAF48
br i1 %50, label %53, label %5
51: ; preds = %5
%52 = tail call i32 @printf(i8* dereferenceable(1) getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0))
br label %53
53: ; preds = %8, %51
ret double %46
}