int isnan(double d) {
  int e;
  unsigned char *c = (unsigned char *)&d;
  e = (int)(c[7] & 0x7F);
  e <<= 4;
  e += (int)((c[6] & 0xF0) >> 4);
  return (e == 2047) &&
         (c[0] || c[1] || c[2] || c[3] || c[4] || c[5] || (c[6] & 0x0F));
}


x86 assembly (clang, -O0):
<isnan>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
lea    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movzbl 0x7(%rax),%eax
and    $0x7f,%eax
mov    %eax,-0xc(%rbp)
mov    -0xc(%rbp),%eax
shl    $0x4,%eax
mov    %eax,-0xc(%rbp)
mov    -0x18(%rbp),%rax
movzbl 0x6(%rax),%eax
and    $0xf0,%eax
sar    $0x4,%eax
add    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
xor    %eax,%eax
cmpl   $0x7ff,-0xc(%rbp)
mov    %al,-0x19(%rbp)
jne    11ed <isnan+0xed>
mov    -0x18(%rbp),%rax
movzbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x1(%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x2(%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x3(%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x4(%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x5(%rax),%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x1a(%rbp)
jne    11e7 <isnan+0xe7>
mov    -0x18(%rbp),%rax
movzbl 0x6(%rax),%eax
and    $0xf,%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x1a(%rbp)
mov    -0x1a(%rbp),%al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<isnan>:
movq   %xmm0,%rdx
mov    %rdx,%rax
shr    $0x34,%rax
and    $0x7f0,%eax
mov    %rdx,%rcx
shr    $0x30,%rcx
mov    %ecx,%esi
shr    $0x4,%esi
and    $0xf,%esi
or     %eax,%esi
xor    %eax,%eax
cmp    $0x7ff,%esi
jne    1137 <isnan+0x37>
shl    $0x10,%rdx
mov    $0x1,%eax
je     1138 <isnan+0x38>
ret
xor    %eax,%eax
test   $0xf,%cl
setne  %al
ret

LLVM IR (-O0):
define i32 @isnan(double %0) {
%2 = alloca double
%3 = alloca i32
%4 = alloca i8*
store double %0, double* %2
%5 = bitcast double* %2 to i8*
store i8* %5, i8** %4
%6 = load i8*, i8** %4
%7 = getelementptr inbounds i8, i8* %6, i64 7
%8 = load i8, i8* %7
%9 = zext i8 %8 to i32
%10 = and i32 %9, 127
store i32 %10, i32* %3
%11 = load i32, i32* %3
%12 = shl i32 %11, 4
store i32 %12, i32* %3
%13 = load i8*, i8** %4
%14 = getelementptr inbounds i8, i8* %13, i64 6
%15 = load i8, i8* %14
%16 = zext i8 %15 to i32
%17 = and i32 %16, 240
%18 = ashr i32 %17, 4
%19 = load i32, i32* %3
%20 = add nsw i32 %19, %18
store i32 %20, i32* %3
%21 = load i32, i32* %3
%22 = icmp eq i32 %21, 2047
br i1 %22, label %23, label %68
23: ; preds = %1
%24 = load i8*, i8** %4
%25 = getelementptr inbounds i8, i8* %24, i64 0
%26 = load i8, i8* %25
%27 = zext i8 %26 to i32
%28 = icmp ne i32 %27, 0
br i1 %28, label %66, label %29
29: ; preds = %23
%30 = load i8*, i8** %4
%31 = getelementptr inbounds i8, i8* %30, i64 1
%32 = load i8, i8* %31
%33 = zext i8 %32 to i32
%34 = icmp ne i32 %33, 0
br i1 %34, label %66, label %35
35: ; preds = %29
%36 = load i8*, i8** %4
%37 = getelementptr inbounds i8, i8* %36, i64 2
%38 = load i8, i8* %37
%39 = zext i8 %38 to i32
%40 = icmp ne i32 %39, 0
br i1 %40, label %66, label %41
41: ; preds = %35
%42 = load i8*, i8** %4
%43 = getelementptr inbounds i8, i8* %42, i64 3
%44 = load i8, i8* %43
%45 = zext i8 %44 to i32
%46 = icmp ne i32 %45, 0
br i1 %46, label %66, label %47
47: ; preds = %41
%48 = load i8*, i8** %4
%49 = getelementptr inbounds i8, i8* %48, i64 4
%50 = load i8, i8* %49
%51 = zext i8 %50 to i32
%52 = icmp ne i32 %51, 0
br i1 %52, label %66, label %53
53: ; preds = %47
%54 = load i8*, i8** %4
%55 = getelementptr inbounds i8, i8* %54, i64 5
%56 = load i8, i8* %55
%57 = zext i8 %56 to i32
%58 = icmp ne i32 %57, 0
br i1 %58, label %66, label %59
59: ; preds = %53
%60 = load i8*, i8** %4
%61 = getelementptr inbounds i8, i8* %60, i64 6
%62 = load i8, i8* %61
%63 = zext i8 %62 to i32
%64 = and i32 %63, 15
%65 = icmp ne i32 %64, 0
br label %66
66: ; preds = %59, %53, %47, %41, %35, %29, %23
%67 = phi i1 [ true, %53 ], [ true, %47 ], [ true, %41 ], [ true, %35 ], [ true, %29 ], [ true, %23 ], [ %65, %59 ]
br label %68
68: ; preds = %66, %1
%69 = phi i1 [ false, %1 ], [ %67, %66 ]
%70 = zext i1 %69 to i32
ret i32 %70
}

LLVM IR (-O2):
define i32 @isnan(double %0) {
%2 = bitcast double %0 to i64
%3 = lshr i64 %2, 52
%4 = trunc i64 %3 to i32
%5 = and i32 %4, 2032
%6 = lshr i64 %2, 48
%7 = trunc i64 %6 to i32
%8 = lshr i32 %7, 4
%9 = and i32 %8, 15
%10 = or i32 %9, %5
%11 = icmp eq i32 %10, 2047
br i1 %11, label %12, label %19
12: ; preds = %1
%13 = and i64 %2, 281474976710655
%14 = icmp eq i64 %13, 0
br i1 %14, label %15, label %19
15: ; preds = %12
%16 = and i32 %7, 15
%17 = icmp ne i32 %16, 0
%18 = zext i1 %17 to i32
br label %19
19: ; preds = %12, %15, %1
%20 = phi i32 [ 0, %1 ], [ 1, %12 ], [ %18, %15 ]
ret i32 %20
}