double max_dvector_pos(double *v, long nl, long nh, int *pos) {
  int i;
  double m = v[nl];
  int p = nl;
  for (i = nl + 1; i <= nh; i++) {
    if (v[i] > m) {
      m = v[i];
      p = i;
    }
  }
  *pos = p;
  return m;
}


x86 assembly (clang, -O0):
<max_dvector_pos>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x34(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %eax,-0x24(%rbp)
movslq -0x24(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     1189 <max_dvector_pos+0x89>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x30(%rbp),%xmm0
jbe    1176 <max_dvector_pos+0x76>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x24(%rbp),%eax
mov    %eax,-0x34(%rbp)
jmp    117b <max_dvector_pos+0x7b>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1138 <max_dvector_pos+0x38>
mov    -0x34(%rbp),%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
movsd  -0x30(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<max_dvector_pos>:
movsd  (%rdi,%rsi,8),%xmm1
lea    0x1(%rsi),%eax
cltq
cmp    %rdx,%rax
jle    1116 <max_dvector_pos+0x16>
movapd %xmm1,%xmm0
mov    %esi,(%rcx)
ret
movabs $0x100000000,%r8
movsd  (%rdi,%rax,8),%xmm0
ucomisd %xmm1,%xmm0
maxsd  %xmm1,%xmm0
cmova  %eax,%esi
shl    $0x20,%rax
add    %r8,%rax
sar    $0x20,%rax
movapd %xmm0,%xmm1
cmp    %rdx,%rax
jle    1120 <max_dvector_pos+0x20>
mov    %esi,(%rcx)
ret

LLVM IR (-O0):
define double @max_dvector_pos(double* %0, i64 %1, i64 %2, i32* %3) {
%5 = alloca double*
%6 = alloca i64
%7 = alloca i64
%8 = alloca i32*
%9 = alloca i32
%10 = alloca double
%11 = alloca i32
store double* %0, double** %5
store i64 %1, i64* %6
store i64 %2, i64* %7
store i32* %3, i32** %8
%12 = load double*, double** %5
%13 = load i64, i64* %6
%14 = getelementptr inbounds double, double* %12, i64 %13
%15 = load double, double* %14
store double %15, double* %10
%16 = load i64, i64* %6
%17 = trunc i64 %16 to i32
store i32 %17, i32* %11
%18 = load i64, i64* %6
%19 = add nsw i64 %18, 1
%20 = trunc i64 %19 to i32
store i32 %20, i32* %9
br label %21
21: ; preds = %42, %4
%22 = load i32, i32* %9
%23 = sext i32 %22 to i64
%24 = load i64, i64* %7
%25 = icmp sle i64 %23, %24
br i1 %25, label %26, label %45
26: ; preds = %21
%27 = load double*, double** %5
%28 = load i32, i32* %9
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %27, i64 %29
%31 = load double, double* %30
%32 = load double, double* %10
%33 = fcmp ogt double %31, %32
br i1 %33, label %34, label %41
34: ; preds = %26
%35 = load double*, double** %5
%36 = load i32, i32* %9
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %35, i64 %37
%39 = load double, double* %38
store double %39, double* %10
%40 = load i32, i32* %9
store i32 %40, i32* %11
br label %41
41: ; preds = %34, %26
br label %42
42: ; preds = %41
%43 = load i32, i32* %9
%44 = add nsw i32 %43, 1
store i32 %44, i32* %9
br label %21
45: ; preds = %21
%46 = load i32, i32* %11
%47 = load i32*, i32** %8
store i32 %46, i32* %47
%48 = load double, double* %10
ret double %48
}

LLVM IR (-O2):
define double @max_dvector_pos(double* nocapture %0, i64 %1, i64 %2, i32* nocapture writeonly %3) {
%5 = getelementptr inbounds double, double* %0, i64 %1
%6 = load double, double* %5
%7 = trunc i64 %1 to i32
%8 = shl i64 %1, 32
%9 = add i64 %8, 4294967296
%10 = ashr exact i64 %9, 32
%11 = icmp sgt i64 %10, %2
br i1 %11, label %26, label %12
12: ; preds = %4, %12
%13 = phi i64 [ %24, %12 ], [ %10, %4 ]
%14 = phi i32 [ %21, %12 ], [ %7, %4 ]
%15 = phi double [ %20, %12 ], [ %6, %4 ]
%16 = trunc i64 %13 to i32
%17 = getelementptr inbounds double, double* %0, i64 %13
%18 = load double, double* %17
%19 = fcmp ogt double %18, %15
%20 = select i1 %19, double %18, double %15
%21 = select i1 %19, i32 %16, i32 %14
%22 = shl nsw i64 %13, 32
%23 = add i64 %22, 4294967296
%24 = ashr exact i64 %23, 32
%25 = icmp sgt i64 %24, %2
br i1 %25, label %26, label %12
26: ; preds = %12, %4
%27 = phi double [ %6, %4 ], [ %20, %12 ]
%28 = phi i32 [ %7, %4 ], [ %21, %12 ]
store i32 %28, i32* %3
ret double %27
}