int index_doubles(int n, int *idx, double *val) {
  int i, j, k;
  for (i = 0; i < n; i++) {
    idx[i] = i;
  }
  for (i = 0; i < n; i++) {
    for (j = 0; j < n; j++) {
      if (val[idx[i]] > val[idx[j]]) {
        k = idx[i];
        idx[i] = idx[j];
        idx[j] = k;
      }
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<index_doubles>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    113e <index_doubles+0x3e>
mov    -0x1c(%rbp),%edx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1116 <index_doubles+0x16>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11ec <index_doubles+0xec>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11d9 <index_doubles+0xd9>
mov    -0x18(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x1c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x20(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    11c6 <index_doubles+0xc6>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x24(%rbp),%edx
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    11cb <index_doubles+0xcb>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1158 <index_doubles+0x58>
jmp    11de <index_doubles+0xde>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1145 <index_doubles+0x45>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<index_doubles>:
test   %edi,%edi
jle    1317 <index_doubles+0x217>
mov    %edi,%r9d
cmp    $0x8,%edi
jae    1117 <index_doubles+0x17>
xor    %ecx,%ecx
jmp    1270 <index_doubles+0x170>
mov    %r9d,%ecx
and    $0xfffffff8,%ecx
lea    -0x8(%rcx),%rax
mov    %rax,%r10
shr    $0x3,%r10
add    $0x1,%r10
mov    %r10d,%r8d
and    $0x3,%r8d
cmp    $0x18,%rax
jae    1148 <index_doubles+0x48>
movdqa 0xebf(%rip),%xmm0
xor    %eax,%eax
jmp    1218 <index_doubles+0x118>
and    $0xfffffffffffffffc,%r10
movdqa 0xeac(%rip),%xmm0
xor    %eax,%eax
movdqa 0xeb1(%rip),%xmm8
movdqa 0xeb8(%rip),%xmm9
movdqa 0xebf(%rip),%xmm10
movdqa 0xec7(%rip),%xmm4
movdqa 0xecf(%rip),%xmm5
movdqa 0xed7(%rip),%xmm6
movdqa 0xedf(%rip),%xmm7
movdqa 0xee7(%rip),%xmm1
nopl   0x0(%rax)
movdqa %xmm0,%xmm2
paddd  %xmm8,%xmm2
movdqu %xmm0,(%rsi,%rax,4)
movdqu %xmm2,0x10(%rsi,%rax,4)
movdqa %xmm0,%xmm2
paddd  %xmm9,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm10,%xmm3
movdqu %xmm2,0x20(%rsi,%rax,4)
movdqu %xmm3,0x30(%rsi,%rax,4)
movdqa %xmm0,%xmm2
paddd  %xmm4,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm5,%xmm3
movdqu %xmm2,0x40(%rsi,%rax,4)
movdqu %xmm3,0x50(%rsi,%rax,4)
movdqa %xmm0,%xmm2
paddd  %xmm6,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm7,%xmm3
movdqu %xmm2,0x60(%rsi,%rax,4)
movdqu %xmm3,0x70(%rsi,%rax,4)
add    $0x20,%rax
paddd  %xmm1,%xmm0
add    $0xfffffffffffffffc,%r10
jne    11a0 <index_doubles+0xa0>
test   %r8,%r8
je     1262 <index_doubles+0x162>
lea    (%rsi,%rax,4),%r10
add    $0x10,%r10
shl    $0x5,%r8
xor    %eax,%eax
movdqa 0xddd(%rip),%xmm1
movdqa 0xde5(%rip),%xmm2
nopl   0x0(%rax,%rax,1)
movdqa %xmm0,%xmm3
paddd  %xmm1,%xmm3
movdqu %xmm0,-0x10(%r10,%rax,1)
movdqu %xmm3,(%r10,%rax,1)
paddd  %xmm2,%xmm0
add    $0x20,%rax
cmp    %rax,%r8
jne    1240 <index_doubles+0x140>
cmp    %r9,%rcx
je     127c <index_doubles+0x17c>
nopw   0x0(%rax,%rax,1)
mov    %ecx,(%rsi,%rcx,4)
add    $0x1,%rcx
cmp    %rcx,%r9
jne    1270 <index_doubles+0x170>
test   %edi,%edi
jle    1317 <index_doubles+0x217>
mov    %r9d,%r8d
and    $0xfffffffe,%r8d
xor    %r10d,%r10d
jmp    1299 <index_doubles+0x199>
add    $0x1,%r10
cmp    %r9,%r10
je     1317 <index_doubles+0x217>
xor    %ecx,%ecx
cmp    $0x1,%edi
jne    12d9 <index_doubles+0x1d9>
test   $0x1,%r9b
je     1290 <index_doubles+0x190>
movslq (%rsi,%r10,4),%r11
movsd  (%rdx,%r11,8),%xmm0
movslq (%rsi,%rcx,4),%rax
ucomisd (%rdx,%rax,8),%xmm0
jbe    1290 <index_doubles+0x190>
mov    %eax,(%rsi,%r10,4)
mov    %r11d,(%rsi,%rcx,4)
jmp    1290 <index_doubles+0x190>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x2,%rcx
cmp    %rcx,%r8
je     12a0 <index_doubles+0x1a0>
movslq (%rsi,%r10,4),%r11
movsd  (%rdx,%r11,8),%xmm0
movslq (%rsi,%rcx,4),%rax
ucomisd (%rdx,%rax,8),%xmm0
jbe    12f6 <index_doubles+0x1f6>
mov    %eax,(%rsi,%r10,4)
mov    %r11d,(%rsi,%rcx,4)
movslq (%rsi,%r10,4),%r11
movsd  (%rdx,%r11,8),%xmm0
movslq 0x4(%rsi,%rcx,4),%rax
ucomisd (%rdx,%rax,8),%xmm0
jbe    12d0 <index_doubles+0x1d0>
mov    %eax,(%rsi,%r10,4)
mov    %r11d,0x4(%rsi,%rcx,4)
jmp    12d0 <index_doubles+0x1d0>
xor    %eax,%eax
ret

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

LLVM IR (-O2):
define i32 @index_doubles(i32 %0, i32* nocapture %1, double* nocapture %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %136
5: ; preds = %3
%6 = zext i32 %0 to i64
%7 = icmp ult i32 %0, 8
br i1 %7, label %70, label %8
8: ; preds = %5
%9 = and i64 %6, 4294967288
%10 = add nsw i64 %9, -8
%11 = lshr exact i64 %10, 3
%12 = add nuw nsw i64 %11, 1
%13 = and i64 %12, 3
%14 = icmp ult i64 %10, 24
br i1 %14, label %51, label %15
15: ; preds = %8
%16 = and i64 %12, 4611686018427387900
br label %17
17: ; preds = %17, %15
%18 = phi i64 [ 0, %15 ], [ %47, %17 ]
%19 = phi <4 x i32> [ <i32 0, i32 1, i32 2, i32 3>, %15 ], [ %48, %17 ]
%20 = phi i64 [ 0, %15 ], [ %49, %17 ]
%21 = add <4 x i32> %19, <i32 4, i32 4, i32 4, i32 4>
%22 = getelementptr inbounds i32, i32* %1, i64 %18
%23 = bitcast i32* %22 to <4 x i32>*
store <4 x i32> %19, <4 x i32>* %23
%24 = getelementptr inbounds i32, i32* %22, i64 4
%25 = bitcast i32* %24 to <4 x i32>*
store <4 x i32> %21, <4 x i32>* %25
%26 = or i64 %18, 8
%27 = add <4 x i32> %19, <i32 8, i32 8, i32 8, i32 8>
%28 = add <4 x i32> %19, <i32 12, i32 12, i32 12, i32 12>
%29 = getelementptr inbounds i32, i32* %1, i64 %26
%30 = bitcast i32* %29 to <4 x i32>*
store <4 x i32> %27, <4 x i32>* %30
%31 = getelementptr inbounds i32, i32* %29, i64 4
%32 = bitcast i32* %31 to <4 x i32>*
store <4 x i32> %28, <4 x i32>* %32
%33 = or i64 %18, 16
%34 = add <4 x i32> %19, <i32 16, i32 16, i32 16, i32 16>
%35 = add <4 x i32> %19, <i32 20, i32 20, i32 20, i32 20>
%36 = getelementptr inbounds i32, i32* %1, i64 %33
%37 = bitcast i32* %36 to <4 x i32>*
store <4 x i32> %34, <4 x i32>* %37
%38 = getelementptr inbounds i32, i32* %36, i64 4
%39 = bitcast i32* %38 to <4 x i32>*
store <4 x i32> %35, <4 x i32>* %39
%40 = or i64 %18, 24
%41 = add <4 x i32> %19, <i32 24, i32 24, i32 24, i32 24>
%42 = add <4 x i32> %19, <i32 28, i32 28, i32 28, i32 28>
%43 = getelementptr inbounds i32, i32* %1, i64 %40
%44 = bitcast i32* %43 to <4 x i32>*
store <4 x i32> %41, <4 x i32>* %44
%45 = getelementptr inbounds i32, i32* %43, i64 4
%46 = bitcast i32* %45 to <4 x i32>*
store <4 x i32> %42, <4 x i32>* %46
%47 = add nuw i64 %18, 32
%48 = add <4 x i32> %19, <i32 32, i32 32, i32 32, i32 32>
%49 = add i64 %20, 4
%50 = icmp eq i64 %49, %16
br i1 %50, label %51, label %17
51: ; preds = %17, %8
%52 = phi i64 [ 0, %8 ], [ %47, %17 ]
%53 = phi <4 x i32> [ <i32 0, i32 1, i32 2, i32 3>, %8 ], [ %48, %17 ]
%54 = icmp eq i64 %13, 0
br i1 %54, label %68, label %55
55: ; preds = %51, %55
%56 = phi i64 [ %64, %55 ], [ %52, %51 ]
%57 = phi <4 x i32> [ %65, %55 ], [ %53, %51 ]
%58 = phi i64 [ %66, %55 ], [ 0, %51 ]
%59 = add <4 x i32> %57, <i32 4, i32 4, i32 4, i32 4>
%60 = getelementptr inbounds i32, i32* %1, i64 %56
%61 = bitcast i32* %60 to <4 x i32>*
store <4 x i32> %57, <4 x i32>* %61
%62 = getelementptr inbounds i32, i32* %60, i64 4
%63 = bitcast i32* %62 to <4 x i32>*
store <4 x i32> %59, <4 x i32>* %63
%64 = add nuw i64 %56, 8
%65 = add <4 x i32> %57, <i32 8, i32 8, i32 8, i32 8>
%66 = add i64 %58, 1
%67 = icmp eq i64 %66, %13
br i1 %67, label %68, label %55
68: ; preds = %55, %51
%69 = icmp eq i64 %9, %6
br i1 %69, label %72, label %70
70: ; preds = %5, %68
%71 = phi i64 [ 0, %5 ], [ %9, %68 ]
br label %79
72: ; preds = %79, %68
br i1 %4, label %73, label %136
73: ; preds = %72
%74 = zext i32 %0 to i64
%75 = and i64 %74, 1
%76 = icmp eq i32 %0, 1
%77 = and i64 %74, 4294967294
%78 = icmp eq i64 %75, 0
br label %85
79: ; preds = %70, %79
%80 = phi i64 [ %83, %79 ], [ %71, %70 ]
%81 = getelementptr inbounds i32, i32* %1, i64 %80
%82 = trunc i64 %80 to i32
store i32 %82, i32* %81
%83 = add nuw nsw i64 %80, 1
%84 = icmp eq i64 %83, %6
br i1 %84, label %72, label %79
85: ; preds = %133, %73
%86 = phi i64 [ 0, %73 ], [ %134, %133 ]
%87 = getelementptr inbounds i32, i32* %1, i64 %86
br i1 %76, label %119, label %88
88: ; preds = %85, %115
%89 = phi i64 [ %116, %115 ], [ 0, %85 ]
%90 = phi i64 [ %117, %115 ], [ 0, %85 ]
%91 = load i32, i32* %87
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds double, double* %2, i64 %92
%94 = load double, double* %93
%95 = getelementptr inbounds i32, i32* %1, i64 %89
%96 = load i32, i32* %95
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds double, double* %2, i64 %97
%99 = load double, double* %98
%100 = fcmp ogt double %94, %99
br i1 %100, label %101, label %102
101: ; preds = %88
store i32 %96, i32* %87
store i32 %91, i32* %95
br label %102
102: ; preds = %88, %101
%103 = or i64 %89, 1
%104 = load i32, i32* %87
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds double, double* %2, i64 %105
%107 = load double, double* %106
%108 = getelementptr inbounds i32, i32* %1, i64 %103
%109 = load i32, i32* %108
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds double, double* %2, i64 %110
%112 = load double, double* %111
%113 = fcmp ogt double %107, %112
br i1 %113, label %114, label %115
114: ; preds = %102
store i32 %109, i32* %87
store i32 %104, i32* %108
br label %115
115: ; preds = %114, %102
%116 = add nuw nsw i64 %89, 2
%117 = add i64 %90, 2
%118 = icmp eq i64 %117, %77
br i1 %118, label %119, label %88
119: ; preds = %115, %85
%120 = phi i64 [ 0, %85 ], [ %116, %115 ]
br i1 %78, label %133, label %121
121: ; preds = %119
%122 = load i32, i32* %87
%123 = sext i32 %122 to i64
%124 = getelementptr inbounds double, double* %2, i64 %123
%125 = load double, double* %124
%126 = getelementptr inbounds i32, i32* %1, i64 %120
%127 = load i32, i32* %126
%128 = sext i32 %127 to i64
%129 = getelementptr inbounds double, double* %2, i64 %128
%130 = load double, double* %129
%131 = fcmp ogt double %125, %130
br i1 %131, label %132, label %133
132: ; preds = %121
store i32 %127, i32* %87
store i32 %122, i32* %126
br label %133
133: ; preds = %121, %132, %119
%134 = add nuw nsw i64 %86, 1
%135 = icmp eq i64 %134, %74
br i1 %135, label %136, label %85
136: ; preds = %133, %3, %72
ret i32 0
}