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


x86 assembly (clang, -O0):
<ffi1fi2>:
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    119a <ffi1fi2+0x9a>
jp     119a <ffi1fi2+0x9a>
movsd  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    119a <ffi1fi2+0x9a>
jp     119a <ffi1fi2+0x9a>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1195 <ffi1fi2+0x95>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    115b <ffi1fi2+0x5b>
jmp    12c7 <ffi1fi2+0x1c7>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    12c2 <ffi1fi2+0x1c2>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cvtsi2sd %eax,%xmm0
subsd  -0x20(%rbp),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xe31(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    1207 <ffi1fi2+0x107>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2ded(%rip),%rax
mov    (%rax),%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    12ac <ffi1fi2+0x1ac>
movsd  -0x40(%rbp),%xmm0
movsd  0xdfc(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    1243 <ffi1fi2+0x143>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2da9(%rip),%rax
mov    (%rax),%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    12a7 <ffi1fi2+0x1a7>
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     127e <ffi1fi2+0x17e>
movsd  -0x40(%rbp),%xmm0
movsd  0xdbe(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    12a2 <ffi1fi2+0x1a2>
movsd  -0x40(%rbp),%xmm0
movsd  0xd8d(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    12a7 <ffi1fi2+0x1a7>
jmp    12ac <ffi1fi2+0x1ac>
jmp    12b1 <ffi1fi2+0x1b1>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11a2 <ffi1fi2+0xa2>
jmp    12c7 <ffi1fi2+0x1c7>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffi1fi2>:
ucomisd 0xef8(%rip),%xmm0
jne    11cc <ffi1fi2+0xcc>
jp     11cc <ffi1fi2+0xcc>
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    11cc <ffi1fi2+0xcc>
jp     11cc <ffi1fi2+0xcc>
test   %rsi,%rsi
jle    1335 <ffi1fi2+0x235>
cmp    $0x10,%rsi
jb     1151 <ffi1fi2+0x51>
lea    (%rdi,%rsi,1),%rax
cmp    %rdx,%rax
jbe    1277 <ffi1fi2+0x177>
lea    (%rdx,%rsi,2),%rax
cmp    %rdi,%rax
jbe    1277 <ffi1fi2+0x177>
xor    %r11d,%r11d
mov    %r11,%r8
not    %r8
add    %rsi,%r8
mov    %rsi,%r9
and    $0x3,%r9
je     1184 <ffi1fi2+0x84>
cs nopw 0x0(%rax,%rax,1)
movzbl (%rdi,%r11,1),%eax
mov    %ax,(%rdx,%r11,2)
add    $0x1,%r11
add    $0xffffffffffffffff,%r9
jne    1170 <ffi1fi2+0x70>
cmp    $0x3,%r8
jb     1335 <ffi1fi2+0x235>
xchg   %ax,%ax
movzbl (%rdi,%r11,1),%eax
mov    %ax,(%rdx,%r11,2)
movzbl 0x1(%rdi,%r11,1),%eax
mov    %ax,0x2(%rdx,%r11,2)
movzbl 0x2(%rdi,%r11,1),%eax
mov    %ax,0x4(%rdx,%r11,2)
movzbl 0x3(%rdi,%r11,1),%eax
mov    %ax,0x6(%rdx,%r11,2)
add    $0x4,%r11
cmp    %r11,%rsi
jne    1190 <ffi1fi2+0x90>
jmp    1335 <ffi1fi2+0x235>
test   %rsi,%rsi
jle    1335 <ffi1fi2+0x235>
xor    %r11d,%r11d
movsd  0xe28(%rip),%xmm2
mov    0x2df9(%rip),%r8
movsd  0xe21(%rip),%xmm3
mov    0x2de2(%rip),%r9
xorpd  %xmm4,%xmm4
movsd  0xe1e(%rip),%xmm5
movsd  0xe0e(%rip),%xmm6
jmp    122c <ffi1fi2+0x12c>
nopl   0x0(%rax)
movl   $0xfffffff5,(%rcx)
movzwl (%r8),%r10d
mov    %r10w,(%rdx,%r11,2)
add    $0x1,%r11
cmp    %r11,%rsi
je     1335 <ffi1fi2+0x235>
movzbl (%rdi,%r11,1),%eax
xorps  %xmm7,%xmm7
cvtsi2sd %eax,%xmm7
subsd  %xmm1,%xmm7
divsd  %xmm0,%xmm7
ucomisd %xmm7,%xmm2
ja     1210 <ffi1fi2+0x110>
ucomisd %xmm3,%xmm7
jbe    1260 <ffi1fi2+0x160>
movl   $0xfffffff5,(%rcx)
movzwl (%r9),%r10d
jmp    121a <ffi1fi2+0x11a>
nopl   0x0(%rax,%rax,1)
ucomisd %xmm4,%xmm7
jae    126c <ffi1fi2+0x16c>
addsd  %xmm5,%xmm7
jmp    1270 <ffi1fi2+0x170>
addsd  %xmm6,%xmm7
cvttsd2si %xmm7,%r10d
jmp    121a <ffi1fi2+0x11a>
mov    %rsi,%r11
and    $0xfffffffffffffff0,%r11
lea    -0x10(%r11),%rax
mov    %rax,%r9
shr    $0x4,%r9
add    $0x1,%r9
test   %rax,%rax
je     1338 <ffi1fi2+0x238>
mov    %r9,%r10
and    $0xfffffffffffffffe,%r10
xor    %r8d,%r8d
xorpd  %xmm0,%xmm0
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movq   (%rdi,%r8,1),%xmm1
movq   0x8(%rdi,%r8,1),%xmm2
punpcklbw %xmm0,%xmm1
punpcklbw %xmm0,%xmm2
movdqu %xmm1,(%rdx,%r8,2)
movdqu %xmm2,0x10(%rdx,%r8,2)
movq   0x10(%rdi,%r8,1),%xmm1
movq   0x18(%rdi,%r8,1),%xmm2
punpcklbw %xmm0,%xmm1
punpcklbw %xmm0,%xmm2
movdqu %xmm1,0x20(%rdx,%r8,2)
movdqu %xmm2,0x30(%rdx,%r8,2)
add    $0x20,%r8
add    $0xfffffffffffffffe,%r10
jne    12b0 <ffi1fi2+0x1b0>
test   $0x1,%r9b
je     132c <ffi1fi2+0x22c>
movq   (%rdi,%r8,1),%xmm0
movq   0x8(%rdi,%r8,1),%xmm1
xorpd  %xmm2,%xmm2
punpcklbw %xmm2,%xmm0
punpcklbw %xmm2,%xmm1
movdqu %xmm0,(%rdx,%r8,2)
movdqu %xmm1,0x10(%rdx,%r8,2)
cmp    %rsi,%r11
jne    1154 <ffi1fi2+0x54>
mov    (%rcx),%eax
ret
xor    %r8d,%r8d
test   $0x1,%r9b
jne    1306 <ffi1fi2+0x206>
jmp    132c <ffi1fi2+0x22c>

LLVM IR (-O0):
@SHRT_MIN = global i16 0
@SHRT_MAX = global i16 0
define i32 @ffi1fi2(i8* %0, i64 %1, double %2, double %3, i16* %4, i32* %5) {
%7 = alloca i8*
%8 = alloca i64
%9 = alloca double
%10 = alloca double
%11 = alloca i16*
%12 = alloca i32*
%13 = alloca i64
%14 = alloca double
store i8* %0, i8** %7
store i64 %1, i64* %8
store double %2, double* %9
store double %3, double* %10
store i16* %4, i16** %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 %38
17: ; preds = %6
%18 = load double, double* %10
%19 = fcmp oeq double %18, 0.000000e+00
br i1 %19, label %20, label %38
20: ; preds = %17
store i64 0, i64* %13
br label %21
21: ; preds = %34, %20
%22 = load i64, i64* %13
%23 = load i64, i64* %8
%24 = icmp slt i64 %22, %23
br i1 %24, label %25, label %37
25: ; preds = %21
%26 = load i8*, i8** %7
%27 = load i64, i64* %13
%28 = getelementptr inbounds i8, i8* %26, i64 %27
%29 = load i8, i8* %28
%30 = zext i8 %29 to i16
%31 = load i16*, i16** %11
%32 = load i64, i64* %13
%33 = getelementptr inbounds i16, i16* %31, i64 %32
store i16 %30, i16* %33
br label %34
34: ; preds = %25
%35 = load i64, i64* %13
%36 = add nsw i64 %35, 1
store i64 %36, i64* %13
br label %21
37: ; preds = %21
br label %94
38: ; preds = %17, %6
store i64 0, i64* %13
br label %39
39: ; preds = %90, %38
%40 = load i64, i64* %13
%41 = load i64, i64* %8
%42 = icmp slt i64 %40, %41
br i1 %42, label %43, label %93
43: ; preds = %39
%44 = load i8*, i8** %7
%45 = load i64, i64* %13
%46 = getelementptr inbounds i8, i8* %44, i64 %45
%47 = load i8, i8* %46
%48 = uitofp i8 %47 to double
%49 = load double, double* %10
%50 = fsub double %48, %49
%51 = load double, double* %9
%52 = fdiv double %50, %51
store double %52, double* %14
%53 = load double, double* %14
%54 = fcmp olt double %53, 0xC0E0000FAE147AE1
br i1 %54, label %55, label %61
55: ; preds = %43
%56 = load i32*, i32** %12
store i32 -11, i32* %56
%57 = load i16, i16* @SHRT_MIN
%58 = load i16*, i16** %11
%59 = load i64, i64* %13
%60 = getelementptr inbounds i16, i16* %58, i64 %59
store i16 %57, i16* %60
br label %89
61: ; preds = %43
%62 = load double, double* %14
%63 = fcmp ogt double %62, 0x40DFFFDF5C28F5C3
br i1 %63, label %64, label %70
64: ; preds = %61
%65 = load i32*, i32** %12
store i32 -11, i32* %65
%66 = load i16, i16* @SHRT_MAX
%67 = load i16*, i16** %11
%68 = load i64, i64* %13
%69 = getelementptr inbounds i16, i16* %67, i64 %68
store i16 %66, i16* %69
br label %88
70: ; preds = %61
%71 = load double, double* %14
%72 = fcmp oge double %71, 0.000000e+00
br i1 %72, label %73, label %80
73: ; preds = %70
%74 = load double, double* %14
%75 = fadd double %74, 5.000000e-01
%76 = fptosi double %75 to i16
%77 = load i16*, i16** %11
%78 = load i64, i64* %13
%79 = getelementptr inbounds i16, i16* %77, i64 %78
store i16 %76, i16* %79
br label %87
80: ; preds = %70
%81 = load double, double* %14
%82 = fsub double %81, 5.000000e-01
%83 = fptosi double %82 to i16
%84 = load i16*, i16** %11
%85 = load i64, i64* %13
%86 = getelementptr inbounds i16, i16* %84, i64 %85
store i16 %83, i16* %86
br label %87
87: ; preds = %80, %73
br label %88
88: ; preds = %87, %64
br label %89
89: ; preds = %88, %55
br label %90
90: ; preds = %89
%91 = load i64, i64* %13
%92 = add nsw i64 %91, 1
store i64 %92, i64* %13
br label %39
93: ; preds = %39
br label %94
94: ; preds = %93, %37
%95 = load i32*, i32** %12
%96 = load i32, i32* %95
ret i32 %96
}

LLVM IR (-O2):
@SHRT_MIN = global i16 0
@SHRT_MAX = global i16 0
define i32 @ffi1fi2(i8* nocapture %0, i64 %1, double %2, double %3, i16* nocapture writeonly %4, i32* nocapture %5) {
%7 = bitcast i16* %4 to i8*
%8 = fcmp oeq double %2, 1.000000e+00
%9 = fcmp oeq double %3, 0.000000e+00
%10 = and i1 %8, %9
%11 = icmp sgt i64 %1, 0
br i1 %10, label %13, label %12
12: ; preds = %6
br i1 %11, label %123, label %150
13: ; preds = %6
br i1 %11, label %14, label %150
14: ; preds = %13
%15 = icmp ult i64 %1, 16
br i1 %15, label %81, label %16
16: ; preds = %14
%17 = getelementptr i16, i16* %4, i64 %1
%18 = bitcast i16* %17 to i8*
%19 = getelementptr i8, i8* %0, i64 %1
%20 = icmp ugt i8* %19, %7
%21 = icmp ugt i8* %18, %0
%22 = and i1 %20, %21
br i1 %22, label %81, label %23
23: ; preds = %16
%24 = and i64 %1, -16
%25 = add i64 %24, -16
%26 = lshr exact i64 %25, 4
%27 = add nuw nsw i64 %26, 1
%28 = and i64 %27, 1
%29 = icmp eq i64 %25, 0
br i1 %29, label %63, label %30
30: ; preds = %23
%31 = and i64 %27, 2305843009213693950
br label %32
32: ; preds = %32, %30
%33 = phi i64 [ 0, %30 ], [ %60, %32 ]
%34 = phi i64 [ 0, %30 ], [ %61, %32 ]
%35 = getelementptr inbounds i8, i8* %0, i64 %33
%36 = bitcast i8* %35 to <8 x i8>*
%37 = load <8 x i8>, <8 x i8>* %36
%38 = getelementptr inbounds i8, i8* %35, i64 8
%39 = bitcast i8* %38 to <8 x i8>*
%40 = load <8 x i8>, <8 x i8>* %39
%41 = zext <8 x i8> %37 to <8 x i16>
%42 = zext <8 x i8> %40 to <8 x i16>
%43 = getelementptr inbounds i16, i16* %4, i64 %33
%44 = bitcast i16* %43 to <8 x i16>*
store <8 x i16> %41, <8 x i16>* %44
%45 = getelementptr inbounds i16, i16* %43, i64 8
%46 = bitcast i16* %45 to <8 x i16>*
store <8 x i16> %42, <8 x i16>* %46
%47 = or i64 %33, 16
%48 = getelementptr inbounds i8, i8* %0, i64 %47
%49 = bitcast i8* %48 to <8 x i8>*
%50 = load <8 x i8>, <8 x i8>* %49
%51 = getelementptr inbounds i8, i8* %48, i64 8
%52 = bitcast i8* %51 to <8 x i8>*
%53 = load <8 x i8>, <8 x i8>* %52
%54 = zext <8 x i8> %50 to <8 x i16>
%55 = zext <8 x i8> %53 to <8 x i16>
%56 = getelementptr inbounds i16, i16* %4, i64 %47
%57 = bitcast i16* %56 to <8 x i16>*
store <8 x i16> %54, <8 x i16>* %57
%58 = getelementptr inbounds i16, i16* %56, i64 8
%59 = bitcast i16* %58 to <8 x i16>*
store <8 x i16> %55, <8 x i16>* %59
%60 = add nuw i64 %33, 32
%61 = add i64 %34, 2
%62 = icmp eq i64 %61, %31
br i1 %62, label %63, label %32
63: ; preds = %32, %23
%64 = phi i64 [ 0, %23 ], [ %60, %32 ]
%65 = icmp eq i64 %28, 0
br i1 %65, label %79, label %66
66: ; preds = %63
%67 = getelementptr inbounds i8, i8* %0, i64 %64
%68 = bitcast i8* %67 to <8 x i8>*
%69 = load <8 x i8>, <8 x i8>* %68
%70 = getelementptr inbounds i8, i8* %67, i64 8
%71 = bitcast i8* %70 to <8 x i8>*
%72 = load <8 x i8>, <8 x i8>* %71
%73 = zext <8 x i8> %69 to <8 x i16>
%74 = zext <8 x i8> %72 to <8 x i16>
%75 = getelementptr inbounds i16, i16* %4, i64 %64
%76 = bitcast i16* %75 to <8 x i16>*
store <8 x i16> %73, <8 x i16>* %76
%77 = getelementptr inbounds i16, i16* %75, i64 8
%78 = bitcast i16* %77 to <8 x i16>*
store <8 x i16> %74, <8 x i16>* %78
br label %79
79: ; preds = %63, %66
%80 = icmp eq i64 %24, %1
br i1 %80, label %150, label %81
81: ; preds = %16, %14, %79
%82 = phi i64 [ 0, %16 ], [ 0, %14 ], [ %24, %79 ]
%83 = xor i64 %82, -1
%84 = add i64 %83, %1
%85 = and i64 %1, 3
%86 = icmp eq i64 %85, 0
br i1 %86, label %97, label %87
87: ; preds = %81, %87
%88 = phi i64 [ %94, %87 ], [ %82, %81 ]
%89 = phi i64 [ %95, %87 ], [ 0, %81 ]
%90 = getelementptr inbounds i8, i8* %0, i64 %88
%91 = load i8, i8* %90
%92 = zext i8 %91 to i16
%93 = getelementptr inbounds i16, i16* %4, i64 %88
store i16 %92, i16* %93
%94 = add nuw nsw i64 %88, 1
%95 = add i64 %89, 1
%96 = icmp eq i64 %95, %85
br i1 %96, label %97, label %87
97: ; preds = %87, %81
%98 = phi i64 [ %82, %81 ], [ %94, %87 ]
%99 = icmp ult i64 %84, 3
br i1 %99, label %150, label %100
100: ; preds = %97, %100
%101 = phi i64 [ %121, %100 ], [ %98, %97 ]
%102 = getelementptr inbounds i8, i8* %0, i64 %101
%103 = load i8, i8* %102
%104 = zext i8 %103 to i16
%105 = getelementptr inbounds i16, i16* %4, i64 %101
store i16 %104, i16* %105
%106 = add nuw nsw i64 %101, 1
%107 = getelementptr inbounds i8, i8* %0, i64 %106
%108 = load i8, i8* %107
%109 = zext i8 %108 to i16
%110 = getelementptr inbounds i16, i16* %4, i64 %106
store i16 %109, i16* %110
%111 = add nuw nsw i64 %101, 2
%112 = getelementptr inbounds i8, i8* %0, i64 %111
%113 = load i8, i8* %112
%114 = zext i8 %113 to i16
%115 = getelementptr inbounds i16, i16* %4, i64 %111
store i16 %114, i16* %115
%116 = add nuw nsw i64 %101, 3
%117 = getelementptr inbounds i8, i8* %0, i64 %116
%118 = load i8, i8* %117
%119 = zext i8 %118 to i16
%120 = getelementptr inbounds i16, i16* %4, i64 %116
store i16 %119, i16* %120
%121 = add nuw nsw i64 %101, 4
%122 = icmp eq i64 %121, %1
br i1 %122, label %150, label %100
123: ; preds = %12, %145
%124 = phi i64 [ %148, %145 ], [ 0, %12 ]
%125 = getelementptr inbounds i8, i8* %0, i64 %124
%126 = load i8, i8* %125
%127 = uitofp i8 %126 to double
%128 = fsub double %127, %3
%129 = fdiv double %128, %2
%130 = fcmp olt double %129, 0xC0E0000FAE147AE1
br i1 %130, label %131, label %133
131: ; preds = %123
store i32 -11, i32* %5
%132 = load i16, i16* @SHRT_MIN
br label %145
133: ; preds = %123
%134 = fcmp ogt double %129, 0x40DFFFDF5C28F5C3
br i1 %134, label %135, label %137
135: ; preds = %133
store i32 -11, i32* %5
%136 = load i16, i16* @SHRT_MAX
br label %145
137: ; preds = %133
%138 = fcmp ult double %129, 0.000000e+00
br i1 %138, label %142, label %139
139: ; preds = %137
%140 = fadd double %129, 5.000000e-01
%141 = fptosi double %140 to i16
br label %145
142: ; preds = %137
%143 = fadd double %129, -5.000000e-01
%144 = fptosi double %143 to i16
br label %145
145: ; preds = %131, %139, %142, %135
%146 = phi i16 [ %132, %131 ], [ %141, %139 ], [ %144, %142 ], [ %136, %135 ]
%147 = getelementptr inbounds i16, i16* %4, i64 %124
store i16 %146, i16* %147
%148 = add nuw nsw i64 %124, 1
%149 = icmp eq i64 %148, %1
br i1 %149, label %150, label %123
150: ; preds = %145, %97, %100, %79, %12, %13
%151 = load i32, i32* %5
ret i32 %151
}