#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 monte_is_odd(long);
long monte_round(double val, int type) {
  long tmp1, tmp2, tmp, res;
  double tmpd;
  long sign;
  ;
  if (val == 0.0) {
    return (0);
  }
  if (val > 0.0) {
    sign = (1);
  } else {
    sign = (-1);
  }
  tmpd = fabs(val);
  tmp = (long)tmpd;
  tmp1 = (long)(10 * tmpd);
  res = tmp1 - (10 * tmp);
  if (res == 0) {
    return (sign * tmp);
  } else {
    if (res < 5) {
      return (sign * tmp);
    }
    if (res > 5) {
      return (sign * (tmp + 1));
    }
    switch (type) {
    case 0:
      return (sign * (tmp + 1));
      break;
    case 1:
      tmp2 = (long)(100 * tmpd);
      res = tmp2 - (100 * tmp);
      if (monte_is_odd(res) == 1) {
        return (sign * tmp);
      } else {
        return (sign * (tmp + 1));
      }
      break;
    case 2:
      tmp2 = (long)(100 * tmpd);
      res = tmp2 - (100 * tmp);
      if (monte_is_odd(res) == 0) {
        return (sign * tmp);
      } else {
        return (sign * (tmp + 1));
      }
      break;
    }
  }
  return (sign * tmp);
}


x86 assembly (clang, -O0):
<monte_round>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %edi,-0x14(%rbp)
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1145 <monte_round+0x35>
jp     1145 <monte_round+0x35>
movq   $0x0,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    1164 <monte_round+0x54>
movq   $0x1,-0x48(%rbp)
jmp    116c <monte_round+0x5c>
movq   $0xffffffffffffffff,-0x48(%rbp)
ff
movsd  -0x10(%rbp),%xmm0
movaps 0xe98(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
cvttsd2si -0x40(%rbp),%rax
mov    %rax,-0x30(%rbp)
movsd  0xe6d(%rip),%xmm0
mulsd  -0x40(%rbp),%xmm0
cvttsd2si %xmm0,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
imul   $0xa,-0x30(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
jne    11ce <monte_round+0xbe>
mov    -0x48(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
cmpq   $0x5,-0x38(%rbp)
jge    11eb <monte_round+0xdb>
mov    -0x48(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
cmpq   $0x5,-0x38(%rbp)
jle    120f <monte_round+0xff>
mov    -0x48(%rbp),%rax
mov    -0x30(%rbp),%rcx
add    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4c(%rbp)
test   %eax,%eax
je     1244 <monte_round+0x134>
jmp    1222 <monte_round+0x112>
mov    -0x4c(%rbp),%eax
sub    $0x1,%eax
je     125d <monte_round+0x14d>
jmp    1233 <monte_round+0x123>
mov    -0x4c(%rbp),%eax
sub    $0x2,%eax
je     12c0 <monte_round+0x1b0>
jmp    1323 <monte_round+0x213>
mov    -0x48(%rbp),%rax
mov    -0x30(%rbp),%rcx
add    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
movsd  0xda3(%rip),%xmm0
mulsd  -0x40(%rbp),%xmm0
cvttsd2si %xmm0,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
imul   $0x64,-0x30(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rdi
call   1030 <monte_is_odd@plt>
cmp    $0x1,%eax
jne    12a7 <monte_round+0x197>
mov    -0x48(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
mov    -0x48(%rbp),%rax
mov    -0x30(%rbp),%rcx
add    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
movsd  0xd40(%rip),%xmm0
mulsd  -0x40(%rbp),%xmm0
cvttsd2si %xmm0,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
imul   $0x64,-0x30(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rdi
call   1030 <monte_is_odd@plt>
cmp    $0x0,%eax
jne    130a <monte_round+0x1fa>
mov    -0x48(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
mov    -0x48(%rbp),%rax
mov    -0x30(%rbp),%rcx
add    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x8(%rbp)
jmp    1335 <monte_round+0x225>
jmp    1328 <monte_round+0x218>
mov    -0x48(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<monte_round>:
push   %r14
push   %rbx
push   %rax
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1124 <monte_round+0x14>
jp     1124 <monte_round+0x14>
xor    %ebx,%ebx
jmp    117f <monte_round+0x6f>
seta   %al
movzbl %al,%ecx
andpd  0xece(%rip),%xmm0
cvttsd2si %xmm0,%r14
movsd  0xed1(%rip),%xmm1
mulsd  %xmm0,%xmm1
cvttsd2si %xmm1,%rax
lea    (%rcx,%rcx,1),%rbx
add    $0xffffffffffffffff,%rbx
lea    (%r14,%r14,1),%rcx
lea    (%rcx,%rcx,4),%rcx
sub    %rcx,%rax
je     117b <monte_round+0x6b>
cmp    $0x4,%rax
jle    117b <monte_round+0x6b>
cmp    $0x5,%rax
jne    1177 <monte_round+0x67>
cmp    $0x2,%edi
je     118a <monte_round+0x7a>
cmp    $0x1,%edi
je     11a9 <monte_round+0x99>
test   %edi,%edi
jne    117b <monte_round+0x6b>
add    $0x1,%r14
imul   %r14,%rbx
mov    %rbx,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret
mulsd  0xe86(%rip),%xmm0
cvttsd2si %xmm0,%rax
imul   $0xffffffffffffff9c,%r14,%rdi
add    %rax,%rdi
call   1030 <monte_is_odd@plt>
test   %eax,%eax
jne    1177 <monte_round+0x67>
jmp    117b <monte_round+0x6b>
mulsd  0xe67(%rip),%xmm0
cvttsd2si %xmm0,%rax
imul   $0xffffffffffffff9c,%r14,%rdi
add    %rax,%rdi
call   1030 <monte_is_odd@plt>
cmp    $0x1,%eax
jne    1177 <monte_round+0x67>
jmp    117b <monte_round+0x6b>

LLVM IR (-O0):
define i64 @monte_round(double %0, i32 %1) {
%3 = alloca i64
%4 = alloca double
%5 = alloca i32
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca double
%11 = alloca i64
store double %0, double* %4
store i32 %1, i32* %5
%12 = load double, double* %4
%13 = fcmp oeq double %12, 0.000000e+00
br i1 %13, label %14, label %15
14: ; preds = %2
store i64 0, i64* %3
br label %105
15: ; preds = %2
%16 = load double, double* %4
%17 = fcmp ogt double %16, 0.000000e+00
br i1 %17, label %18, label %19
18: ; preds = %15
store i64 1, i64* %11
br label %20
19: ; preds = %15
store i64 -1, i64* %11
br label %20
20: ; preds = %19, %18
%21 = load double, double* %4
%22 = call double @llvm.fabs.f64(double %21)
store double %22, double* %10
%23 = load double, double* %10
%24 = fptosi double %23 to i64
store i64 %24, i64* %8
%25 = load double, double* %10
%26 = fmul double 1.000000e+01, %25
%27 = fptosi double %26 to i64
store i64 %27, i64* %6
%28 = load i64, i64* %6
%29 = load i64, i64* %8
%30 = mul nsw i64 10, %29
%31 = sub nsw i64 %28, %30
store i64 %31, i64* %9
%32 = load i64, i64* %9
%33 = icmp eq i64 %32, 0
br i1 %33, label %34, label %38
34: ; preds = %20
%35 = load i64, i64* %11
%36 = load i64, i64* %8
%37 = mul nsw i64 %35, %36
store i64 %37, i64* %3
br label %105
38: ; preds = %20
%39 = load i64, i64* %9
%40 = icmp slt i64 %39, 5
br i1 %40, label %41, label %45
41: ; preds = %38
%42 = load i64, i64* %11
%43 = load i64, i64* %8
%44 = mul nsw i64 %42, %43
store i64 %44, i64* %3
br label %105
45: ; preds = %38
%46 = load i64, i64* %9
%47 = icmp sgt i64 %46, 5
br i1 %47, label %48, label %53
48: ; preds = %45
%49 = load i64, i64* %11
%50 = load i64, i64* %8
%51 = add nsw i64 %50, 1
%52 = mul nsw i64 %49, %51
store i64 %52, i64* %3
br label %105
53: ; preds = %45
%54 = load i32, i32* %5
switch i32 %54, label %100 [
i32 0, label %55
i32 1, label %60
i32 2, label %80
]
55: ; preds = %53
%56 = load i64, i64* %11
%57 = load i64, i64* %8
%58 = add nsw i64 %57, 1
%59 = mul nsw i64 %56, %58
store i64 %59, i64* %3
br label %105
60: ; preds = %53
%61 = load double, double* %10
%62 = fmul double 1.000000e+02, %61
%63 = fptosi double %62 to i64
store i64 %63, i64* %7
%64 = load i64, i64* %7
%65 = load i64, i64* %8
%66 = mul nsw i64 100, %65
%67 = sub nsw i64 %64, %66
store i64 %67, i64* %9
%68 = load i64, i64* %9
%69 = call i32 @monte_is_odd(i64 %68)
%70 = icmp eq i32 %69, 1
br i1 %70, label %71, label %75
71: ; preds = %60
%72 = load i64, i64* %11
%73 = load i64, i64* %8
%74 = mul nsw i64 %72, %73
store i64 %74, i64* %3
br label %105
75: ; preds = %60
%76 = load i64, i64* %11
%77 = load i64, i64* %8
%78 = add nsw i64 %77, 1
%79 = mul nsw i64 %76, %78
store i64 %79, i64* %3
br label %105
80: ; preds = %53
%81 = load double, double* %10
%82 = fmul double 1.000000e+02, %81
%83 = fptosi double %82 to i64
store i64 %83, i64* %7
%84 = load i64, i64* %7
%85 = load i64, i64* %8
%86 = mul nsw i64 100, %85
%87 = sub nsw i64 %84, %86
store i64 %87, i64* %9
%88 = load i64, i64* %9
%89 = call i32 @monte_is_odd(i64 %88)
%90 = icmp eq i32 %89, 0
br i1 %90, label %91, label %95
91: ; preds = %80
%92 = load i64, i64* %11
%93 = load i64, i64* %8
%94 = mul nsw i64 %92, %93
store i64 %94, i64* %3
br label %105
95: ; preds = %80
%96 = load i64, i64* %11
%97 = load i64, i64* %8
%98 = add nsw i64 %97, 1
%99 = mul nsw i64 %96, %98
store i64 %99, i64* %3
br label %105
100: ; preds = %53
br label %101
101: ; preds = %100
%102 = load i64, i64* %11
%103 = load i64, i64* %8
%104 = mul nsw i64 %102, %103
store i64 %104, i64* %3
br label %105
105: ; preds = %101, %95, %91, %75, %71, %55, %48, %41, %34, %14
%106 = load i64, i64* %3
ret i64 %106
}

LLVM IR (-O2):
define i64 @monte_round(double %0, i32 %1) {
%3 = fcmp oeq double %0, 0.000000e+00
br i1 %3, label %55, label %4
4: ; preds = %2
%5 = fcmp ogt double %0, 0.000000e+00
%6 = select i1 %5, i64 1, i64 -1
%7 = tail call double @llvm.fabs.f64(double %0)
%8 = fptosi double %7 to i64
%9 = fmul double %7, 1.000000e+01
%10 = fptosi double %9 to i64
%11 = mul i64 %8, -10
%12 = add i64 %11, %10
%13 = icmp eq i64 %12, 0
br i1 %13, label %14, label %16
14: ; preds = %4
%15 = mul nsw i64 %6, %8
br label %55
16: ; preds = %4
%17 = icmp slt i64 %12, 5
br i1 %17, label %18, label %20
18: ; preds = %16
%19 = mul nsw i64 %6, %8
br label %55
20: ; preds = %16
%21 = icmp eq i64 %12, 5
br i1 %21, label %25, label %22
22: ; preds = %20
%23 = add nsw i64 %8, 1
%24 = mul nsw i64 %23, %6
br label %55
25: ; preds = %20
switch i32 %1, label %53 [
i32 0, label %26
i32 1, label %29
i32 2, label %41
]
26: ; preds = %25
%27 = add nsw i64 %8, 1
%28 = mul nsw i64 %27, %6
br label %55
29: ; preds = %25
%30 = fmul double %7, 1.000000e+02
%31 = fptosi double %30 to i64
%32 = mul i64 %8, -100
%33 = add i64 %32, %31
%34 = tail call i32 @monte_is_odd(i64 %33)
%35 = icmp eq i32 %34, 1
br i1 %35, label %36, label %38
36: ; preds = %29
%37 = mul nsw i64 %6, %8
br label %55
38: ; preds = %29
%39 = add nsw i64 %8, 1
%40 = mul nsw i64 %39, %6
br label %55
41: ; preds = %25
%42 = fmul double %7, 1.000000e+02
%43 = fptosi double %42 to i64
%44 = mul i64 %8, -100
%45 = add i64 %44, %43
%46 = tail call i32 @monte_is_odd(i64 %45)
%47 = icmp eq i32 %46, 0
br i1 %47, label %48, label %50
48: ; preds = %41
%49 = mul nsw i64 %6, %8
br label %55
50: ; preds = %41
%51 = add nsw i64 %8, 1
%52 = mul nsw i64 %51, %6
br label %55
53: ; preds = %25
%54 = mul nsw i64 %6, %8
br label %55
55: ; preds = %2, %53, %50, %48, %38, %36, %26, %22, %18, %14
%56 = phi i64 [ %15, %14 ], [ %19, %18 ], [ %24, %22 ], [ %54, %53 ], [ %49, %48 ], [ %52, %50 ], [ %37, %36 ], [ %40, %38 ], [ %28, %26 ], [ 0, %2 ]
ret i64 %56
}