int upsort5(double b[], long m) {
  long h = m / 5;
  long i, j, l;
  double bip1;
  for (l = 0; l < h; l++) {
    for (i = 0; i < 4; i++) {
      bip1 = b[l + (i + 1) * h];
      if (bip1 < b[l + i * h]) {
        for (j = i; j >= 0; j--) {
          if (bip1 < b[l + j * h])
            b[l + (j + 1) * h] = b[l + j * h];
          else
            break;
        }
        b[l + (j + 1) * h] = bip1;
      }
    }
  }
  return (0);
}


x86 assembly (clang, -O0):
<upsort5>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    $0x5,%ecx
cqto
idiv   %rcx
mov    %rax,-0x18(%rbp)
movq   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x18(%rbp),%rax
jge    1270 <upsort5+0x170>
movq   $0x0,-0x20(%rbp)
cmpq   $0x4,-0x20(%rbp)
jge    125a <upsort5+0x15a>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x20(%rbp),%rdx
add    $0x1,%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x20(%rbp),%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1244 <upsort5+0x144>
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
cmpq   $0x0,-0x28(%rbp)
jl     1222 <upsort5+0x122>
movsd  -0x38(%rbp),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x28(%rbp),%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1207 <upsort5+0x107>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x28(%rbp),%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x28(%rbp),%rdx
add    $0x1,%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    120c <upsort5+0x10c>
jmp    1222 <upsort5+0x122>
jmp    1211 <upsort5+0x111>
mov    -0x28(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x28(%rbp)
jmp    1199 <upsort5+0x99>
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    -0x28(%rbp),%rdx
add    $0x1,%rdx
imul   -0x18(%rbp),%rdx
add    %rdx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1249 <upsort5+0x149>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    113c <upsort5+0x3c>
jmp    125f <upsort5+0x15f>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1126 <upsort5+0x26>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<upsort5>:
movabs $0x6666666666666667,%rcx
66 66 66
mov    %rsi,%rax
imul   %rcx
cmp    $0x5,%rsi
jl     127f <upsort5+0x17f>
mov    %rdx,%rax
shr    $0x3f,%rax
sar    %rdx
add    %rax,%rdx
mov    %rdx,%r8
shl    $0x5,%r8
add    %rdi,%r8
lea    (%rdx,%rdx,2),%rax
lea    (%rdi,%rax,8),%r9
mov    %rdx,%r10
shl    $0x4,%r10
add    %rdi,%r10
lea    (%rdi,%rdx,8),%rax
xor    %ecx,%ecx
jmp    1169 <upsort5+0x69>
nopl   0x0(%rax,%rax,1)
imul   %rdx,%rsi
add    %rcx,%rsi
movsd  %xmm1,(%rdi,%rsi,8)
add    $0x1,%rcx
cmp    %rcx,%rdx
je     127f <upsort5+0x17f>
movsd  (%rax,%rcx,8),%xmm0
movsd  (%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1188 <upsort5+0x88>
movsd  %xmm1,(%rax,%rcx,8)
movsd  %xmm0,(%rdi,%rcx,8)
movsd  (%rax,%rcx,8),%xmm0
movsd  (%r10,%rcx,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    11c3 <upsort5+0xc3>
movsd  %xmm0,(%r10,%rcx,8)
movsd  (%rdi,%rcx,8),%xmm0
mov    $0x1,%esi
ucomisd %xmm1,%xmm0
jbe    11b1 <upsort5+0xb1>
movsd  %xmm0,(%rax,%rcx,8)
xor    %esi,%esi
imul   %rdx,%rsi
add    %rcx,%rsi
movsd  %xmm1,(%rdi,%rsi,8)
movsd  (%r10,%rcx,8),%xmm1
movsd  (%r9,%rcx,8),%xmm0
ucomisd %xmm0,%xmm1
jbe    1214 <upsort5+0x114>
movsd  %xmm1,(%r9,%rcx,8)
movsd  (%rax,%rcx,8),%xmm1
mov    $0x2,%esi
ucomisd %xmm0,%xmm1
jbe    1202 <upsort5+0x102>
movsd  %xmm1,(%r10,%rcx,8)
movsd  (%rdi,%rcx,8),%xmm1
mov    $0x1,%esi
ucomisd %xmm0,%xmm1
jbe    1202 <upsort5+0x102>
movsd  %xmm1,(%rax,%rcx,8)
xor    %esi,%esi
imul   %rdx,%rsi
add    %rcx,%rsi
movsd  %xmm0,(%rdi,%rsi,8)
movsd  (%r9,%rcx,8),%xmm0
movsd  (%r8,%rcx,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    115c <upsort5+0x5c>
movsd  %xmm0,(%r8,%rcx,8)
movsd  (%r10,%rcx,8),%xmm0
mov    $0x3,%esi
ucomisd %xmm1,%xmm0
jbe    1150 <upsort5+0x50>
movsd  %xmm0,(%r9,%rcx,8)
movsd  (%rax,%rcx,8),%xmm0
mov    $0x2,%esi
ucomisd %xmm1,%xmm0
jbe    1150 <upsort5+0x50>
movsd  %xmm0,(%r10,%rcx,8)
movsd  (%rdi,%rcx,8),%xmm0
mov    $0x1,%esi
ucomisd %xmm1,%xmm0
jbe    1150 <upsort5+0x50>
movsd  %xmm0,(%rax,%rcx,8)
xor    %esi,%esi
jmp    1150 <upsort5+0x50>
xor    %eax,%eax
ret

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

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