long CSPL_Sort_gnomesort(double *inval, long n) {
  long pos = 1;
  long last = 0;
  long nswaps = 0;
  while (pos < n) {
    if (inval[pos] >= inval[pos - 1]) {
      if (0 != last) {
        pos = last;
        last = 0;
      }
      pos++;
    } else {
      {
        double tmp = inval[pos];
        inval[pos] = inval[pos - 1];
        inval[pos - 1] = tmp;
      };
      nswaps++;
      if (pos > 1) {
        if (0 == last) {
          last = pos;
        }
        pos--;
      } else {
        pos++;
      }
    }
  }
  return (nswaps);
}


x86 assembly (clang, -O0):
<CSPL_Sort_gnomesort>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x1,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    121b <CSPL_Sort_gnomesort+0x11b>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    $0x1,%rcx
ucomisd (%rax,%rcx,8),%xmm0
jb     1183 <CSPL_Sort_gnomesort+0x83>
xor    %eax,%eax
cmp    -0x20(%rbp),%rax
je     1172 <CSPL_Sort_gnomesort+0x72>
mov    -0x20(%rbp),%rax
mov    %rax,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1216 <CSPL_Sort_gnomesort+0x116>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    $0x1,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x30(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    $0x1,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
cmpq   $0x1,-0x18(%rbp)
jle    1205 <CSPL_Sort_gnomesort+0x105>
xor    %eax,%eax
cmp    -0x20(%rbp),%rax
jne    11f4 <CSPL_Sort_gnomesort+0xf4>
mov    -0x18(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x18(%rbp)
jmp    1211 <CSPL_Sort_gnomesort+0x111>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1216 <CSPL_Sort_gnomesort+0x116>
jmp    1124 <CSPL_Sort_gnomesort+0x24>
mov    -0x28(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<CSPL_Sort_gnomesort>:
cmp    $0x2,%rsi
jl     1176 <CSPL_Sort_gnomesort+0x76>
mov    $0x1,%ecx
xor    %eax,%eax
xor    %edx,%edx
jmp    1132 <CSPL_Sort_gnomesort+0x32>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
test   %rdx,%rdx
cmovne %rdx,%rcx
add    $0x1,%rcx
xor    %edx,%edx
cmp    %rsi,%rcx
jge    1178 <CSPL_Sort_gnomesort+0x78>
movsd  -0x8(%rdi,%rcx,8),%xmm1
movsd  (%rdi,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jae    1120 <CSPL_Sort_gnomesort+0x20>
movsd  %xmm1,(%rdi,%rcx,8)
movsd  %xmm0,-0x8(%rdi,%rcx,8)
add    $0x1,%rax
cmp    $0x2,%rcx
jl     1170 <CSPL_Sort_gnomesort+0x70>
test   %rdx,%rdx
cmove  %rcx,%rdx
add    $0xffffffffffffffff,%rcx
jmp    112d <CSPL_Sort_gnomesort+0x2d>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x1,%rcx
jmp    112d <CSPL_Sort_gnomesort+0x2d>
xor    %eax,%eax
ret

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

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