#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 */
unsigned char UCHAR_MAX;
int ffr8fi1(double *input, long ntodo, double scale, double zero,
            unsigned char *output, int *status) {
  long ii;
  double dvalue;
  if (scale == 1. && zero == 0.) {
    for (ii = 0; ii < ntodo; ii++) {
      if (input[ii] < -0.49) {
        *status = -11;
        output[ii] = 0;
      } else if (input[ii] > 255.49) {
        *status = -11;
        output[ii] = UCHAR_MAX;
      } else
        output[ii] = (unsigned char)input[ii];
    }
  } else {
    for (ii = 0; ii < ntodo; ii++) {
      dvalue = (input[ii] - zero) / scale;
      if (dvalue < -0.49) {
        *status = -11;
        output[ii] = 0;
      } else if (dvalue > 255.49) {
        *status = -11;
        output[ii] = UCHAR_MAX;
      } else
        output[ii] = (unsigned char)(dvalue + .5);
    }
  }
  return (*status);
}


x86 assembly (clang, -O0):
<ffr8fi1>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
mov    %rdx,-0x28(%rbp)
mov    %rcx,-0x30(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  0xed5(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    121b <ffr8fi1+0x11b>
jp     121b <ffr8fi1+0x11b>
movsd  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    121b <ffr8fi1+0x11b>
jp     121b <ffr8fi1+0x11b>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1216 <ffr8fi1+0x116>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  0xe8f(%rip),%xmm0
ucomisd (%rax,%rcx,8),%xmm0
jbe    119f <ffr8fi1+0x9f>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    1200 <ffr8fi1+0x100>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xe5c(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    11e1 <ffr8fi1+0xe1>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2e21(%rip),%rax
mov    (%rax),%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    11fb <ffr8fi1+0xfb>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
cvttsd2si (%rax,%rcx,8),%eax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    1200 <ffr8fi1+0x100>
jmp    1205 <ffr8fi1+0x105>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    115b <ffr8fi1+0x5b>
jmp    12f7 <ffr8fi1+0x1f7>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    12f2 <ffr8fi1+0x1f2>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x20(%rbp),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xdb3(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    127b <ffr8fi1+0x17b>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    12dc <ffr8fi1+0x1dc>
movsd  -0x40(%rbp),%xmm0
movsd  0xd88(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    12b5 <ffr8fi1+0x1b5>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d4d(%rip),%rax
mov    (%rax),%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    12d7 <ffr8fi1+0x1d7>
movsd  -0x40(%rbp),%xmm0
movsd  0xd56(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    12dc <ffr8fi1+0x1dc>
jmp    12e1 <ffr8fi1+0x1e1>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    1223 <ffr8fi1+0x123>
jmp    12f7 <ffr8fi1+0x1f7>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffr8fi1>:
ucomisd 0xef8(%rip),%xmm0
jne    1187 <ffr8fi1+0x87>
jp     1187 <ffr8fi1+0x87>
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    1187 <ffr8fi1+0x87>
jp     1187 <ffr8fi1+0x87>
test   %rsi,%rsi
jle    11fb <ffr8fi1+0xfb>
xor    %eax,%eax
movsd  0xedd(%rip),%xmm0
movsd  0xedd(%rip),%xmm1
mov    0x2eb6(%rip),%r8
jmp    115a <ffr8fi1+0x5a>
nopl   0x0(%rax)
movl   $0xfffffff5,(%rcx)
xor    %r9d,%r9d
mov    %r9b,(%rdx,%rax,1)
add    $0x1,%rax
cmp    %rax,%rsi
je     11fb <ffr8fi1+0xfb>
movsd  (%rdi,%rax,8),%xmm2
ucomisd %xmm2,%xmm0
ja     1140 <ffr8fi1+0x40>
ucomisd %xmm1,%xmm2
jbe    1180 <ffr8fi1+0x80>
movl   $0xfffffff5,(%rcx)
movzbl (%r8),%r9d
jmp    1149 <ffr8fi1+0x49>
nopw   0x0(%rax,%rax,1)
cvttsd2si %xmm2,%r9d
jmp    1149 <ffr8fi1+0x49>
test   %rsi,%rsi
jle    11fb <ffr8fi1+0xfb>
xor    %eax,%eax
movsd  0xe72(%rip),%xmm2
movsd  0xe72(%rip),%xmm3
mov    0x2e4b(%rip),%r8
movsd  0xe6b(%rip),%xmm4
jmp    11c6 <ffr8fi1+0xc6>
nop
movl   $0xfffffff5,(%rcx)
xor    %r9d,%r9d
mov    %r9b,(%rdx,%rax,1)
add    $0x1,%rax
cmp    %rax,%rsi
je     11fb <ffr8fi1+0xfb>
movsd  (%rdi,%rax,8),%xmm5
subsd  %xmm1,%xmm5
divsd  %xmm0,%xmm5
ucomisd %xmm5,%xmm2
ja     11b0 <ffr8fi1+0xb0>
ucomisd %xmm3,%xmm5
jbe    11f0 <ffr8fi1+0xf0>
movl   $0xfffffff5,(%rcx)
movzbl (%r8),%r9d
jmp    11b9 <ffr8fi1+0xb9>
nopl   0x0(%rax,%rax,1)
addsd  %xmm4,%xmm5
cvttsd2si %xmm5,%r9d
jmp    11b9 <ffr8fi1+0xb9>
mov    (%rcx),%eax
ret

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

LLVM IR (-O2):
@UCHAR_MAX = global i8 0
define i32 @ffr8fi1(double* nocapture %0, i64 %1, double %2, double %3, i8* nocapture writeonly %4, i32* nocapture %5) {
%7 = fcmp oeq double %2, 1.000000e+00
%8 = fcmp oeq double %3, 0.000000e+00
%9 = and i1 %7, %8
%10 = icmp sgt i64 %1, 0
br i1 %9, label %12, label %11
11: ; preds = %6
br i1 %10, label %30, label %50
12: ; preds = %6
br i1 %10, label %13, label %50
13: ; preds = %12, %25
%14 = phi i64 [ %28, %25 ], [ 0, %12 ]
%15 = getelementptr inbounds double, double* %0, i64 %14
%16 = load double, double* %15
%17 = fcmp olt double %16, -4.900000e-01
br i1 %17, label %18, label %19
18: ; preds = %13
store i32 -11, i32* %5
br label %25
19: ; preds = %13
%20 = fcmp ogt double %16, 2.554900e+02
br i1 %20, label %21, label %23
21: ; preds = %19
store i32 -11, i32* %5
%22 = load i8, i8* @UCHAR_MAX
br label %25
23: ; preds = %19
%24 = fptoui double %16 to i8
br label %25
25: ; preds = %18, %23, %21
%26 = phi i8 [ 0, %18 ], [ %24, %23 ], [ %22, %21 ]
%27 = getelementptr inbounds i8, i8* %4, i64 %14
store i8 %26, i8* %27
%28 = add nuw nsw i64 %14, 1
%29 = icmp eq i64 %28, %1
br i1 %29, label %50, label %13
30: ; preds = %11, %45
%31 = phi i64 [ %48, %45 ], [ 0, %11 ]
%32 = getelementptr inbounds double, double* %0, i64 %31
%33 = load double, double* %32
%34 = fsub double %33, %3
%35 = fdiv double %34, %2
%36 = fcmp olt double %35, -4.900000e-01
br i1 %36, label %37, label %38
37: ; preds = %30
store i32 -11, i32* %5
br label %45
38: ; preds = %30
%39 = fcmp ogt double %35, 2.554900e+02
br i1 %39, label %40, label %42
40: ; preds = %38
store i32 -11, i32* %5
%41 = load i8, i8* @UCHAR_MAX
br label %45
42: ; preds = %38
%43 = fadd double %35, 5.000000e-01
%44 = fptoui double %43 to i8
br label %45
45: ; preds = %37, %42, %40
%46 = phi i8 [ 0, %37 ], [ %44, %42 ], [ %41, %40 ]
%47 = getelementptr inbounds i8, i8* %4, i64 %31
store i8 %46, i8* %47
%48 = add nuw nsw i64 %31, 1
%49 = icmp eq i64 %48, %1
br i1 %49, label %50, label %30
50: ; preds = %45, %25, %11, %12
%51 = load i32, i32* %5
ret i32 %51
}