#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 */
int SHRT_MAX;
int SHRT_MIN;
int ffintfi2(int *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):
<ffintfi2>:
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    1225 <ffintfi2+0x125>
jp     1225 <ffintfi2+0x125>
movsd  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1225 <ffintfi2+0x125>
jp     1225 <ffintfi2+0x125>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1220 <ffintfi2+0x120>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    0x2e65(%rip),%rcx
cmp    (%rcx),%eax
jge    11aa <ffintfi2+0xaa>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2e4c(%rip),%rax
mov    (%rax),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    120a <ffintfi2+0x10a>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    0x2e1c(%rip),%rcx
cmp    (%rcx),%eax
jle    11eb <ffintfi2+0xeb>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2e03(%rip),%rax
mov    (%rax),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1205 <ffintfi2+0x105>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    120a <ffintfi2+0x10a>
jmp    120f <ffintfi2+0x10f>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    115b <ffintfi2+0x5b>
jmp    1353 <ffintfi2+0x253>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    134e <ffintfi2+0x24e>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
cvtsi2sdl (%rax,%rcx,4),%xmm0
subsd  -0x20(%rbp),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xda9(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    1291 <ffintfi2+0x191>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d65(%rip),%rax
mov    (%rax),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1338 <ffintfi2+0x238>
movsd  -0x40(%rbp),%xmm0
movsd  0xd72(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    12cf <ffintfi2+0x1cf>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d1f(%rip),%rax
mov    (%rax),%eax
mov    %ax,%dx
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
jmp    1333 <ffintfi2+0x233>
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     130a <ffintfi2+0x20a>
movsd  -0x40(%rbp),%xmm0
movsd  0xd32(%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    132e <ffintfi2+0x22e>
movsd  -0x40(%rbp),%xmm0
movsd  0xd01(%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    1333 <ffintfi2+0x233>
jmp    1338 <ffintfi2+0x238>
jmp    133d <ffintfi2+0x23d>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    122d <ffintfi2+0x12d>
jmp    1353 <ffintfi2+0x253>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffintfi2>:
push   %rbx
ucomisd 0xef7(%rip),%xmm0
jne    1187 <ffintfi2+0x87>
jp     1187 <ffintfi2+0x87>
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    1187 <ffintfi2+0x87>
jp     1187 <ffintfi2+0x87>
test   %rsi,%rsi
jle    1227 <ffintfi2+0x127>
mov    0x2eb7(%rip),%r8
mov    (%r8),%r10d
xor    %ebx,%ebx
mov    0x2ea3(%rip),%r9
jmp    115b <ffintfi2+0x5b>
nopw   0x0(%rax,%rax,1)
movl   $0xfffffff5,(%rcx)
mov    (%r8),%r10d
mov    %r10w,(%rdx,%rbx,2)
add    $0x1,%rbx
cmp    %rbx,%rsi
je     1227 <ffintfi2+0x127>
mov    (%rdi,%rbx,4),%r11d
cmp    %r10d,%r11d
jl     1140 <ffintfi2+0x40>
cmp    (%r9),%r11d
jle    1180 <ffintfi2+0x80>
movl   $0xfffffff5,(%rcx)
movzwl (%r9),%eax
mov    %ax,(%rdx,%rbx,2)
mov    (%r8),%r10d
jmp    114e <ffintfi2+0x4e>
nopl   0x0(%rax)
mov    %r11w,(%rdx,%rbx,2)
jmp    114e <ffintfi2+0x4e>
test   %rsi,%rsi
jle    1227 <ffintfi2+0x127>
xor    %eax,%eax
movsd  0xe6e(%rip),%xmm2
mov    0x2e3f(%rip),%r8
movsd  0xe67(%rip),%xmm3
mov    0x2e28(%rip),%r9
xorpd  %xmm4,%xmm4
movsd  0xe64(%rip),%xmm5
movsd  0xe54(%rip),%xmm6
jmp    11e8 <ffintfi2+0xe8>
cs nopw 0x0(%rax,%rax,1)
movl   $0xfffffff5,(%rcx)
movzwl (%r8),%r10d
mov    %r10w,(%rdx,%rax,2)
add    $0x1,%rax
cmp    %rax,%rsi
je     1227 <ffintfi2+0x127>
xorps  %xmm7,%xmm7
cvtsi2sdl (%rdi,%rax,4),%xmm7
subsd  %xmm1,%xmm7
divsd  %xmm0,%xmm7
ucomisd %xmm7,%xmm2
ja     11d0 <ffintfi2+0xd0>
ucomisd %xmm3,%xmm7
jbe    1210 <ffintfi2+0x110>
movl   $0xfffffff5,(%rcx)
movzwl (%r9),%r10d
jmp    11da <ffintfi2+0xda>
ucomisd %xmm4,%xmm7
jae    121c <ffintfi2+0x11c>
addsd  %xmm5,%xmm7
jmp    1220 <ffintfi2+0x120>
addsd  %xmm6,%xmm7
cvttsd2si %xmm7,%r10d
jmp    11da <ffintfi2+0xda>
mov    (%rcx),%eax
pop    %rbx
ret

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