double tstepcount(long nts, double missval1, double *array1, double refval) {
  long j;
  long n = 0;
  if ((((refval) != (refval)) || ((missval1) != (missval1))
           ? (((refval) != (refval)) && ((missval1) != (missval1)) ? 1 : 0)
           : !(refval < missval1 || missval1 < refval)))
    return (missval1);
  for (j = 0; j < nts; j++) {
    n++;
    if ((((array1[j]) != (array1[j])) || ((refval) != (refval))
             ? (((array1[j]) != (array1[j])) && ((refval) != (refval)) ? 1 : 0)
             : !(array1[j] < refval || refval < array1[j])))
      break;
  }
  if (j == nts)
    return (missval1);
  else
    return ((double)n);
}


x86 assembly (clang, -O0):
<tstepcount>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
movsd  %xmm1,-0x28(%rbp)
movq   $0x0,-0x38(%rbp)
movsd  -0x28(%rbp),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    114f <tstepcount+0x4f>
jp     114f <tstepcount+0x4f>
movsd  -0x18(%rbp),%xmm0
ucomisd -0x18(%rbp),%xmm0
jne    114f <tstepcount+0x4f>
jp     114f <tstepcount+0x4f>
jmp    11a3 <tstepcount+0xa3>
movsd  -0x28(%rbp),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    116a <tstepcount+0x6a>
jp     116a <tstepcount+0x6a>
jmp    1194 <tstepcount+0x94>
movsd  -0x18(%rbp),%xmm0
ucomisd -0x18(%rbp),%xmm0
jne    1185 <tstepcount+0x85>
jp     1185 <tstepcount+0x85>
jmp    1194 <tstepcount+0x94>
mov    $0x1,%al
test   $0x1,%al
jne    11cb <tstepcount+0xcb>
jmp    11da <tstepcount+0xda>
xor    %eax,%eax
test   $0x1,%al
jne    11cb <tstepcount+0xcb>
jmp    11da <tstepcount+0xda>
movsd  -0x28(%rbp),%xmm1
movsd  -0x18(%rbp),%xmm0
ucomisd %xmm1,%xmm0
ja     11da <tstepcount+0xda>
movsd  -0x18(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm0
ucomisd %xmm1,%xmm0
ja     11da <tstepcount+0xda>
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    131c <tstepcount+0x21c>
movq   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    12f4 <tstepcount+0x1f4>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jne    123d <tstepcount+0x13d>
jp     123d <tstepcount+0x13d>
movsd  -0x28(%rbp),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    123d <tstepcount+0x13d>
jp     123d <tstepcount+0x13d>
jmp    12a1 <tstepcount+0x1a1>
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jne    1268 <tstepcount+0x168>
jp     1268 <tstepcount+0x168>
jmp    1292 <tstepcount+0x192>
movsd  -0x28(%rbp),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    1283 <tstepcount+0x183>
jp     1283 <tstepcount+0x183>
jmp    1292 <tstepcount+0x192>
mov    $0x1,%al
test   $0x1,%al
jne    12d9 <tstepcount+0x1d9>
jmp    12de <tstepcount+0x1de>
xor    %eax,%eax
test   $0x1,%al
jne    12d9 <tstepcount+0x1d9>
jmp    12de <tstepcount+0x1de>
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x28(%rbp),%xmm0
ucomisd %xmm1,%xmm0
ja     12de <tstepcount+0x1de>
movsd  -0x28(%rbp),%xmm1
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
ja     12de <tstepcount+0x1de>
jmp    12f4 <tstepcount+0x1f4>
jmp    12e3 <tstepcount+0x1e3>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    11e2 <tstepcount+0xe2>
mov    -0x30(%rbp),%rax
cmp    -0x10(%rbp),%rax
jne    1311 <tstepcount+0x211>
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    131c <tstepcount+0x21c>
cvtsi2sdq -0x38(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<tstepcount>:
ucomisd %xmm0,%xmm1
jp     115b <tstepcount+0x5b>
je     1167 <tstepcount+0x67>
test   %rdi,%rdi
jle    114b <tstepcount+0x4b>
xor    %eax,%eax
nop
movsd  (%rsi,%rax,8),%xmm2
ucomisd %xmm2,%xmm1
jp     112c <tstepcount+0x2c>
ucomisd %xmm1,%xmm2
je     1138 <tstepcount+0x38>
add    $0x1,%rax
cmp    %rax,%rdi
jne    1110 <tstepcount+0x10>
jmp    1167 <tstepcount+0x67>
ucomisd %xmm1,%xmm1
jnp    1121 <tstepcount+0x21>
ucomisd %xmm2,%xmm2
jnp    1121 <tstepcount+0x21>
lea    0x1(%rax),%rcx
xorps  %xmm1,%xmm1
cvtsi2sd %rcx,%xmm1
cmp    %rdi,%rax
jne    1156 <tstepcount+0x56>
jmp    1167 <tstepcount+0x67>
xorpd  %xmm1,%xmm1
xor    %eax,%eax
cmp    %rdi,%rax
je     1167 <tstepcount+0x67>
movapd %xmm1,%xmm0
ret
ucomisd %xmm0,%xmm0
jnp    1108 <tstepcount+0x8>
ucomisd %xmm1,%xmm1
jnp    1108 <tstepcount+0x8>
ret

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

LLVM IR (-O2):
define double @tstepcount(i64 %0, double %1, double* nocapture %2, double %3) {
%5 = fcmp uno double %3, 0.000000e+00
%6 = fcmp uno double %3, %1
br i1 %6, label %7, label %10
7: ; preds = %4
%8 = fcmp uno double %1, 0.000000e+00
%9 = and i1 %8, %5
br i1 %9, label %34, label %12
10: ; preds = %4
%11 = fcmp ueq double %3, %1
br i1 %11, label %34, label %12
12: ; preds = %7, %10
%13 = icmp sgt i64 %0, 0
br i1 %13, label %14, label %29
14: ; preds = %12, %25
%15 = phi i64 [ %16, %25 ], [ 0, %12 ]
%16 = add nuw nsw i64 %15, 1
%17 = getelementptr inbounds double, double* %2, i64 %15
%18 = load double, double* %17
%19 = fcmp uno double %18, %3
br i1 %19, label %20, label %23
20: ; preds = %14
%21 = fcmp uno double %18, 0.000000e+00
%22 = and i1 %5, %21
br i1 %22, label %27, label %25
23: ; preds = %14
%24 = fcmp ueq double %18, %3
br i1 %24, label %27, label %25
25: ; preds = %20, %23
%26 = icmp eq i64 %16, %0
br i1 %26, label %34, label %14
27: ; preds = %23, %20
%28 = sitofp i64 %16 to double
br label %29
29: ; preds = %27, %12
%30 = phi i64 [ 0, %12 ], [ %15, %27 ]
%31 = phi double [ 0.000000e+00, %12 ], [ %28, %27 ]
%32 = icmp eq i64 %30, %0
%33 = select i1 %32, double %1, double %31
br label %34
34: ; preds = %25, %29, %7, %10
%35 = phi double [ %1, %10 ], [ %1, %7 ], [ %33, %29 ], [ %1, %25 ]
ret double %35
}