#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 */
long SHRT_MAX;
long SHRT_MIN;
int ffi4fi2(long *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++) {
      if (input[ii] < SHRT_MIN) {
        *status = -11;
        output[ii] = SHRT_MIN;
      } else if (input[ii] > SHRT_MAX) {
        *status = -11;
        output[ii] = SHRT_MAX;
      } else
        output[ii] = input[ii];
    }
  } else {
    for (ii = 0; ii < ntodo; ii++) {
      dvalue = (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):
<ffi4fi2>:
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    122c <ffi4fi2+0x12c>
jp     122c <ffi4fi2+0x12c>
movsd  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    122c <ffi4fi2+0x12c>
jp     122c <ffi4fi2+0x12c>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1227 <ffi4fi2+0x127>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    0x2e64(%rip),%rcx
cmp    (%rcx),%rax
jge    11ad <ffi4fi2+0xad>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2e4a(%rip),%rax
mov    (%rax),%rax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1211 <ffi4fi2+0x111>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    0x2e18(%rip),%rcx
cmp    (%rcx),%rax
jle    11f1 <ffi4fi2+0xf1>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2dfe(%rip),%rax
mov    (%rax),%rax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    120c <ffi4fi2+0x10c>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1211 <ffi4fi2+0x111>
jmp    1216 <ffi4fi2+0x116>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    115b <ffi4fi2+0x5b>
jmp    135d <ffi4fi2+0x25d>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1358 <ffi4fi2+0x258>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
cvtsi2sdq (%rax,%rcx,8),%xmm0
subsd  -0x20(%rbp),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xda1(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    129a <ffi4fi2+0x19a>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d5d(%rip),%rax
mov    (%rax),%rax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1342 <ffi4fi2+0x242>
movsd  -0x40(%rbp),%xmm0
movsd  0xd69(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    12d9 <ffi4fi2+0x1d9>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d16(%rip),%rax
mov    (%rax),%rax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    133d <ffi4fi2+0x23d>
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1314 <ffi4fi2+0x214>
movsd  -0x40(%rbp),%xmm0
movsd  0xd28(%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    1338 <ffi4fi2+0x238>
movsd  -0x40(%rbp),%xmm0
movsd  0xcf7(%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    133d <ffi4fi2+0x23d>
jmp    1342 <ffi4fi2+0x242>
jmp    1347 <ffi4fi2+0x247>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    1234 <ffi4fi2+0x134>
jmp    135d <ffi4fi2+0x25d>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffi4fi2>:
push   %rbx
ucomisd 0xef7(%rip),%xmm0
jne    1171 <ffi4fi2+0x71>
jp     1171 <ffi4fi2+0x71>
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    1171 <ffi4fi2+0x71>
jp     1171 <ffi4fi2+0x71>
test   %rsi,%rsi
jle    1217 <ffi4fi2+0x117>
mov    0x2eb7(%rip),%rax
mov    (%rax),%r8
mov    0x2ea5(%rip),%rax
mov    (%rax),%r9
cmp    $0x1,%rsi
jne    121b <ffi4fi2+0x11b>
xor    %r11d,%r11d
test   $0x1,%sil
je     1217 <ffi4fi2+0x117>
mov    (%rdi,%r11,8),%rax
cmp    %r8,%rax
jl     115e <ffi4fi2+0x5e>
mov    %r9,%r8
cmp    %r9,%rax
jle    1167 <ffi4fi2+0x67>
movl   $0xfffffff5,(%rcx)
mov    %r8,%rax
mov    %ax,(%rdx,%r11,2)
jmp    1217 <ffi4fi2+0x117>
test   %rsi,%rsi
jle    1217 <ffi4fi2+0x117>
mov    0x2e57(%rip),%rax
movzwl (%rax),%r8d
mov    0x2e54(%rip),%rax
movzwl (%rax),%r9d
xor    %eax,%eax
movsd  0xe6e(%rip),%xmm2
movsd  0xe6e(%rip),%xmm3
xorpd  %xmm4,%xmm4
movsd  0xe72(%rip),%xmm5
movsd  0xe62(%rip),%xmm6
jmp    11d7 <ffi4fi2+0xd7>
nopl   0x0(%rax,%rax,1)
movl   $0xfffffff5,(%rcx)
mov    %r9d,%r10d
mov    %r10w,(%rdx,%rax,2)
add    $0x1,%rax
cmp    %rax,%rsi
je     1217 <ffi4fi2+0x117>
xorps  %xmm7,%xmm7
cvtsi2sdq (%rdi,%rax,8),%xmm7
subsd  %xmm1,%xmm7
divsd  %xmm0,%xmm7
ucomisd %xmm7,%xmm2
ja     11c0 <ffi4fi2+0xc0>
ucomisd %xmm3,%xmm7
jbe    1200 <ffi4fi2+0x100>
movl   $0xfffffff5,(%rcx)
mov    %r8d,%r10d
jmp    11c9 <ffi4fi2+0xc9>
nop
ucomisd %xmm4,%xmm7
jae    120c <ffi4fi2+0x10c>
addsd  %xmm5,%xmm7
jmp    1210 <ffi4fi2+0x110>
addsd  %xmm6,%xmm7
cvttsd2si %xmm7,%r10d
jmp    11c9 <ffi4fi2+0xc9>
mov    (%rcx),%eax
pop    %rbx
ret
mov    %rsi,%r10
and    $0xfffffffffffffffe,%r10
xor    %r11d,%r11d
jmp    124c <ffi4fi2+0x14c>
nopw   0x0(%rax,%rax,1)
movl   $0xfffffff5,(%rcx)
mov    %rbx,%rax
mov    %ax,0x2(%rdx,%r11,2)
add    $0x2,%r11
cmp    %r11,%r10
je     1143 <ffi4fi2+0x43>
mov    (%rdi,%r11,8),%rax
mov    %r8,%rbx
cmp    %r8,%rax
jl     1260 <ffi4fi2+0x160>
mov    %r9,%rbx
cmp    %r9,%rax
jle    1269 <ffi4fi2+0x169>
movl   $0xfffffff5,(%rcx)
mov    %rbx,%rax
mov    %ax,(%rdx,%r11,2)
mov    0x8(%rdi,%r11,8),%rax
mov    %r8,%rbx
cmp    %r8,%rax
jl     1230 <ffi4fi2+0x130>
mov    %r9,%rbx
cmp    %r9,%rax
jg     1230 <ffi4fi2+0x130>
jmp    1239 <ffi4fi2+0x139>

LLVM IR (-O0):
@SHRT_MIN = global i64 0
@SHRT_MAX = global i64 0
define i32 @ffi4fi2(i64* %0, i64 %1, double %2, double %3, i16* %4, i32* %5) {
%7 = alloca i64*
%8 = alloca i64
%9 = alloca double
%10 = alloca double
%11 = alloca i16*
%12 = alloca i32*
%13 = alloca i64
%14 = alloca double
store i64* %0, i64** %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 %68
17: ; preds = %6
%18 = load double, double* %10
%19 = fcmp oeq double %18, 0.000000e+00
br i1 %19, label %20, label %68
20: ; preds = %17
store i64 0, i64* %13
br label %21
21: ; preds = %64, %20
%22 = load i64, i64* %13
%23 = load i64, i64* %8
%24 = icmp slt i64 %22, %23
br i1 %24, label %25, label %67
25: ; preds = %21
%26 = load i64*, i64** %7
%27 = load i64, i64* %13
%28 = getelementptr inbounds i64, i64* %26, i64 %27
%29 = load i64, i64* %28
%30 = load i64, i64* @SHRT_MIN
%31 = icmp slt i64 %29, %30
br i1 %31, label %32, label %39
32: ; preds = %25
%33 = load i32*, i32** %12
store i32 -11, i32* %33
%34 = load i64, i64* @SHRT_MIN
%35 = trunc i64 %34 to i16
%36 = load i16*, i16** %11
%37 = load i64, i64* %13
%38 = getelementptr inbounds i16, i16* %36, i64 %37
store i16 %35, i16* %38
br label %63
39: ; preds = %25
%40 = load i64*, i64** %7
%41 = load i64, i64* %13
%42 = getelementptr inbounds i64, i64* %40, i64 %41
%43 = load i64, i64* %42
%44 = load i64, i64* @SHRT_MAX
%45 = icmp sgt i64 %43, %44
br i1 %45, label %46, label %53
46: ; preds = %39
%47 = load i32*, i32** %12
store i32 -11, i32* %47
%48 = load i64, i64* @SHRT_MAX
%49 = trunc i64 %48 to i16
%50 = load i16*, i16** %11
%51 = load i64, i64* %13
%52 = getelementptr inbounds i16, i16* %50, i64 %51
store i16 %49, i16* %52
br label %62
53: ; preds = %39
%54 = load i64*, i64** %7
%55 = load i64, i64* %13
%56 = getelementptr inbounds i64, i64* %54, i64 %55
%57 = load i64, i64* %56
%58 = trunc i64 %57 to i16
%59 = load i16*, i16** %11
%60 = load i64, i64* %13
%61 = getelementptr inbounds i16, i16* %59, i64 %60
store i16 %58, i16* %61
br label %62
62: ; preds = %53, %46
br label %63
63: ; preds = %62, %32
br label %64
64: ; preds = %63
%65 = load i64, i64* %13
%66 = add nsw i64 %65, 1
store i64 %66, i64* %13
br label %21
67: ; preds = %21
br label %126
68: ; preds = %17, %6
store i64 0, i64* %13
br label %69
69: ; preds = %122, %68
%70 = load i64, i64* %13
%71 = load i64, i64* %8
%72 = icmp slt i64 %70, %71
br i1 %72, label %73, label %125
73: ; preds = %69
%74 = load i64*, i64** %7
%75 = load i64, i64* %13
%76 = getelementptr inbounds i64, i64* %74, i64 %75
%77 = load i64, i64* %76
%78 = sitofp i64 %77 to double
%79 = load double, double* %10
%80 = fsub double %78, %79
%81 = load double, double* %9
%82 = fdiv double %80, %81
store double %82, double* %14
%83 = load double, double* %14
%84 = fcmp olt double %83, 0xC0E0000FAE147AE1
br i1 %84, label %85, label %92
85: ; preds = %73
%86 = load i32*, i32** %12
store i32 -11, i32* %86
%87 = load i64, i64* @SHRT_MIN
%88 = trunc i64 %87 to i16
%89 = load i16*, i16** %11
%90 = load i64, i64* %13
%91 = getelementptr inbounds i16, i16* %89, i64 %90
store i16 %88, i16* %91
br label %121
92: ; preds = %73
%93 = load double, double* %14
%94 = fcmp ogt double %93, 0x40DFFFDF5C28F5C3
br i1 %94, label %95, label %102
95: ; preds = %92
%96 = load i32*, i32** %12
store i32 -11, i32* %96
%97 = load i64, i64* @SHRT_MAX
%98 = trunc i64 %97 to i16
%99 = load i16*, i16** %11
%100 = load i64, i64* %13
%101 = getelementptr inbounds i16, i16* %99, i64 %100
store i16 %98, i16* %101
br label %120
102: ; preds = %92
%103 = load double, double* %14
%104 = fcmp oge double %103, 0.000000e+00
br i1 %104, label %105, label %112
105: ; preds = %102
%106 = load double, double* %14
%107 = fadd double %106, 5.000000e-01
%108 = fptosi double %107 to i16
%109 = load i16*, i16** %11
%110 = load i64, i64* %13
%111 = getelementptr inbounds i16, i16* %109, i64 %110
store i16 %108, i16* %111
br label %119
112: ; preds = %102
%113 = load double, double* %14
%114 = fsub double %113, 5.000000e-01
%115 = fptosi double %114 to i16
%116 = load i16*, i16** %11
%117 = load i64, i64* %13
%118 = getelementptr inbounds i16, i16* %116, i64 %117
store i16 %115, i16* %118
br label %119
119: ; preds = %112, %105
br label %120
120: ; preds = %119, %95
br label %121
121: ; preds = %120, %85
br label %122
122: ; preds = %121
%123 = load i64, i64* %13
%124 = add nsw i64 %123, 1
store i64 %124, i64* %13
br label %69
125: ; preds = %69
br label %126
126: ; preds = %125, %67
%127 = load i32*, i32** %12
%128 = load i32, i32* %127
ret i32 %128
}

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