int order(n, pbuf)
int n;
double pbuf[];
{
  int gap, i, j;
  double temp;
  for (gap = n / 2; gap > 0; gap /= 2)
    for (i = gap; i < n; i++)
      for (j = i - gap; j >= 0 && pbuf[j] > pbuf[j + gap]; j -= gap) {
        temp = pbuf[j];
        pbuf[j] = pbuf[j + gap];
        pbuf[j + gap] = temp;
      }
}


x86 assembly (clang, -O0):
<order>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x14(%rbp)
cmpl   $0x0,-0x14(%rbp)
jle    1205 <order+0x105>
mov    -0x14(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11ed <order+0xed>
mov    -0x18(%rbp),%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x1c(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x1c(%rbp)
mov    %al,-0x29(%rbp)
jl     1172 <order+0x72>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
ucomisd (%rax,%rcx,8),%xmm0
seta   %al
mov    %al,-0x29(%rbp)
mov    -0x29(%rbp),%al
test   $0x1,%al
jne    1182 <order+0x82>
jmp    11da <order+0xda>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x28(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%ecx
mov    -0x1c(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
jmp    113e <order+0x3e>
jmp    11df <order+0xdf>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1129 <order+0x29>
jmp    11f2 <order+0xf2>
mov    -0x14(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x14(%rbp)
jmp    1119 <order+0x19>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<order>:
cmp    $0x2,%edi
jl     1168 <order+0x68>
mov    %edi,%eax
jmp    1116 <order+0x16>
nopl   0x0(%rax)
cmp    $0x4,%r8d
jl     1168 <order+0x68>
mov    %eax,%r8d
shr    $0x1f,%eax
add    %r8d,%eax
sar    %eax
cmp    %edi,%eax
jge    1110 <order+0x10>
mov    %eax,%r9d
jmp    1139 <order+0x39>
nopw   0x0(%rax,%rax,1)
add    $0x1,%r9d
cmp    %edi,%r9d
je     1110 <order+0x10>
mov    %r9d,%ecx
sub    %eax,%ecx
js     1130 <order+0x30>
lea    (%rax,%rcx,1),%edx
mov    %ecx,%ecx
movsd  (%rsi,%rcx,8),%xmm0
movslq %edx,%rdx
movsd  (%rsi,%rdx,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    1130 <order+0x30>
movsd  %xmm1,(%rsi,%rcx,8)
movsd  %xmm0,(%rsi,%rdx,8)
sub    %eax,%ecx
jns    1140 <order+0x40>
jmp    1130 <order+0x30>
ret

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

LLVM IR (-O2):
define i32 @order(i32 %0, double* nocapture %1) {
%3 = icmp sgt i32 %0, 1
br i1 %3, label %6, label %30
4: ; preds = %27, %6
%5 = icmp sgt i32 %7, 3
br i1 %5, label %6, label %30
6: ; preds = %2, %4
%7 = phi i32 [ %8, %4 ], [ %0, %2 ]
%8 = sdiv i32 %7, 2
%9 = icmp slt i32 %8, %0
br i1 %9, label %10, label %4
10: ; preds = %6, %27
%11 = phi i32 [ %28, %27 ], [ %8, %6 ]
%12 = sub nsw i32 %11, %8
%13 = icmp sgt i32 %12, -1
br i1 %13, label %14, label %27
14: ; preds = %10, %24
%15 = phi i32 [ %25, %24 ], [ %12, %10 ]
%16 = phi i32 [ %15, %24 ], [ %11, %10 ]
%17 = zext i32 %15 to i64
%18 = getelementptr inbounds double, double* %1, i64 %17
%19 = load double, double* %18
%20 = sext i32 %16 to i64
%21 = getelementptr inbounds double, double* %1, i64 %20
%22 = load double, double* %21
%23 = fcmp ogt double %19, %22
br i1 %23, label %24, label %27
24: ; preds = %14
store double %22, double* %18
store double %19, double* %21
%25 = sub nsw i32 %15, %8
%26 = icmp sgt i32 %25, -1
br i1 %26, label %14, label %27
27: ; preds = %24, %14, %10
%28 = add nsw i32 %11, 1
%29 = icmp eq i32 %28, %0
br i1 %29, label %4, label %10
30: ; preds = %4, %2
ret i32 undef
}