void shell_sort_double(double A[], int size) {
  int i, j, incrmnt;
  double temp;
  incrmnt = size / 2;
  while (incrmnt > 0) {
    for (i = incrmnt; i < size; i++) {
      j = i;
      temp = A[i];
      while ((j >= incrmnt) && (A[j - incrmnt] > temp)) {
        A[j] = A[(j -= incrmnt)];
      }
      A[j] = temp;
    }
    incrmnt /= 2;
  }
}


x86 assembly (clang, -O0):
<shell_sort_double>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    -0xc(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jle    11e7 <shell_sort_double+0xe7>
mov    -0x18(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11d4 <shell_sort_double+0xd4>
mov    -0x10(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x14(%rbp),%ecx
xor    %eax,%eax
cmp    -0x18(%rbp),%ecx
mov    %al,-0x21(%rbp)
jl     117b <shell_sort_double+0x7b>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x18(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x20(%rbp),%xmm0
seta   %al
mov    %al,-0x21(%rbp)
mov    -0x21(%rbp),%al
test   $0x1,%al
jne    118b <shell_sort_double+0x8b>
jmp    11b4 <shell_sort_double+0xb4>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%edx
mov    -0x14(%rbp),%ecx
sub    %edx,%ecx
mov    %ecx,-0x14(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    114d <shell_sort_double+0x4d>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    1129 <shell_sort_double+0x29>
mov    -0x18(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x18(%rbp)
jmp    1119 <shell_sort_double+0x19>
pop    %rbp
ret

x86 assembly (clang, -O2):
<shell_sort_double>:
push   %rbp
push   %rbx
cmp    $0x2,%esi
jl     11f9 <shell_sort_double+0xf9>
movslq %esi,%r10
mov    %r10,%r8
neg    %r8
mov    %esi,%eax
jmp    112a <shell_sort_double+0x2a>
nopl   0x0(%rax,%rax,1)
cmp    $0x4,%r9d
jl     11f9 <shell_sort_double+0xf9>
mov    %eax,%r9d
shr    $0x1f,%eax
add    %r9d,%eax
sar    %eax
cmp    %esi,%eax
jge    1120 <shell_sort_double+0x20>
movslq %eax,%rdx
mov    %esi,%ecx
sub    %eax,%ecx
mov    %rdx,%r11
test   $0x1,%cl
je     1173 <shell_sort_double+0x73>
movsd  (%rdi,%rdx,8),%xmm0
xor    %ecx,%ecx
nop
lea    (%rax,%rcx,1),%ebx
cmp    %eax,%ebx
jl     1167 <shell_sort_double+0x67>
movslq %ecx,%rcx
movsd  (%rdi,%rcx,8),%xmm1
sub    %eax,%ecx
ucomisd %xmm0,%xmm1
ja     1150 <shell_sort_double+0x50>
movslq %ebx,%rcx
movsd  %xmm0,(%rdi,%rcx,8)
lea    0x1(%rdx),%r11
not    %rdx
cmp    %r8,%rdx
je     1120 <shell_sort_double+0x20>
mov    %eax,%edx
neg    %edx
jmp    11a5 <shell_sort_double+0xa5>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movslq %ebx,%rcx
movsd  %xmm0,(%rdi,%rcx,8)
add    $0x2,%r11
cmp    %r10,%r11
je     1120 <shell_sort_double+0x20>
movsd  (%rdi,%r11,8),%xmm0
mov    %r11d,%ebx
xchg   %ax,%ax
mov    %ebx,%ecx
sub    %eax,%ebx
jl     11c7 <shell_sort_double+0xc7>
lea    (%rdx,%rcx,1),%ebp
movslq %ebp,%rbp
movsd  (%rdi,%rbp,8),%xmm1
ucomisd %xmm0,%xmm1
ja     11b0 <shell_sort_double+0xb0>
movslq %ecx,%rcx
movsd  %xmm0,(%rdi,%rcx,8)
lea    0x1(%r11),%rcx
movsd  0x8(%rdi,%r11,8),%xmm0
nopw   0x0(%rax,%rax,1)
mov    %ecx,%ebx
sub    %eax,%ecx
jl     1190 <shell_sort_double+0x90>
lea    (%rdx,%rbx,1),%ebp
movslq %ebp,%rbp
movsd  (%rdi,%rbp,8),%xmm1
ucomisd %xmm0,%xmm1
ja     11e0 <shell_sort_double+0xe0>
jmp    1190 <shell_sort_double+0x90>
pop    %rbx
pop    %rbp
ret

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

LLVM IR (-O2):
define void @shell_sort_double(double* nocapture %0, i32 %1) {
%3 = icmp sgt i32 %1, 1
br i1 %3, label %4, label %73
4: ; preds = %2
%5 = sext i32 %1 to i64
%6 = sub nsw i64 0, %5
br label %9
7: ; preds = %35, %68, %9
%8 = icmp sgt i32 %10, 3
br i1 %8, label %9, label %73
9: ; preds = %4, %7
%10 = phi i32 [ %11, %7 ], [ %1, %4 ]
%11 = sdiv i32 %10, 2
%12 = icmp slt i32 %11, %1
br i1 %12, label %13, label %7
13: ; preds = %9
%14 = sext i32 %11 to i64
%15 = sub nsw i64 %5, %14
%16 = xor i64 %14, -1
%17 = and i64 %15, 1
%18 = icmp eq i64 %17, 0
br i1 %18, label %35, label %19
19: ; preds = %13
%20 = getelementptr inbounds double, double* %0, i64 %14
%21 = load double, double* %20
br label %22
22: ; preds = %25, %19
%23 = phi i32 [ %11, %19 ], [ %26, %25 ]
%24 = icmp slt i32 %23, %11
br i1 %24, label %31, label %25
25: ; preds = %22
%26 = sub nsw i32 %23, %11
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %0, i64 %27
%29 = load double, double* %28
%30 = fcmp ogt double %29, %21
br i1 %30, label %22, label %31
31: ; preds = %25, %22
%32 = sext i32 %23 to i64
%33 = getelementptr inbounds double, double* %0, i64 %32
store double %21, double* %33
%34 = add nsw i64 %14, 1
br label %35
35: ; preds = %31, %13
%36 = phi i64 [ %14, %13 ], [ %34, %31 ]
%37 = icmp eq i64 %16, %6
br i1 %37, label %7, label %38
38: ; preds = %35, %68
%39 = phi i64 [ %71, %68 ], [ %36, %35 ]
%40 = getelementptr inbounds double, double* %0, i64 %39
%41 = load double, double* %40
%42 = trunc i64 %39 to i32
br label %43
43: ; preds = %46, %38
%44 = phi i32 [ %42, %38 ], [ %47, %46 ]
%45 = icmp slt i32 %44, %11
br i1 %45, label %52, label %46
46: ; preds = %43
%47 = sub nsw i32 %44, %11
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %0, i64 %48
%50 = load double, double* %49
%51 = fcmp ogt double %50, %41
br i1 %51, label %43, label %52
52: ; preds = %43, %46
%53 = sext i32 %44 to i64
%54 = getelementptr inbounds double, double* %0, i64 %53
store double %41, double* %54
%55 = add nsw i64 %39, 1
%56 = getelementptr inbounds double, double* %0, i64 %55
%57 = load double, double* %56
%58 = trunc i64 %55 to i32
br label %59
59: ; preds = %62, %52
%60 = phi i32 [ %58, %52 ], [ %63, %62 ]
%61 = icmp slt i32 %60, %11
br i1 %61, label %68, label %62
62: ; preds = %59
%63 = sub nsw i32 %60, %11
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %0, i64 %64
%66 = load double, double* %65
%67 = fcmp ogt double %66, %57
br i1 %67, label %59, label %68
68: ; preds = %62, %59
%69 = sext i32 %60 to i64
%70 = getelementptr inbounds double, double* %0, i64 %69
store double %57, double* %70
%71 = add nsw i64 %39, 2
%72 = icmp eq i64 %71, %5
br i1 %72, label %7, label %38
73: ; preds = %7, %2
ret void
}