#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double fabs(double);
long svd_idamax(long n, double *dx, long incx) {
  long ix, i, imax;
  double dtemp, dmax;
  if (n < 1)
    return (-1);
  if (n == 1)
    return (0);
  if (incx == 0)
    return (-1);
  if (incx < 0)
    ix = (-n + 1) * incx;
  else
    ix = 0;
  imax = ix;
  dx += ix;
  dmax = fabs(*dx);
  for (i = 1; i < n; i++) {
    ix += incx;
    dx += incx;
    dtemp = fabs(*dx);
    if (dtemp > dmax) {
      dmax = dtemp;
      imax = ix;
    }
  }
  return (imax);
}


x86 assembly (clang, -O0):
<svd_idamax>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0x1,-0x10(%rbp)
jge    1128 <svd_idamax+0x28>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    123d <svd_idamax+0x13d>
cmpq   $0x1,-0x10(%rbp)
jne    1140 <svd_idamax+0x40>
movq   $0x0,-0x8(%rbp)
jmp    123d <svd_idamax+0x13d>
cmpq   $0x0,-0x20(%rbp)
jne    1158 <svd_idamax+0x58>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    123d <svd_idamax+0x13d>
cmpq   $0x0,-0x20(%rbp)
jge    117b <svd_idamax+0x7b>
xor    %eax,%eax
sub    -0x10(%rbp),%rax
add    $0x1,%rax
imul   -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    1183 <svd_idamax+0x83>
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x3,%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movaps 0xe56(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
movq   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1235 <svd_idamax+0x135>
mov    -0x20(%rbp),%rax
add    -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x3,%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movaps 0xe0c(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    121f <svd_idamax+0x11f>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
jmp    1224 <svd_idamax+0x124>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    11bb <svd_idamax+0xbb>
mov    -0x38(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<svd_idamax>:
push   %r14
push   %rbx
mov    $0xffffffffffffffff,%rax
test   %rdi,%rdi
jle    1200 <svd_idamax+0x100>
cmp    $0x1,%rdi
jne    1120 <svd_idamax+0x20>
xor    %eax,%eax
jmp    1200 <svd_idamax+0x100>
test   %rdx,%rdx
je     1200 <svd_idamax+0x100>
mov    $0x1,%ecx
sub    %rdi,%rcx
imul   %rdx,%rcx
mov    %rdx,%rax
sar    $0x3f,%rax
and    %rcx,%rax
movsd  (%rsi,%rax,8),%xmm0
andpd  0xeb4(%rip),%xmm0
lea    -0x1(%rdi),%r8
cmp    $0x2,%rdi
jne    116c <svd_idamax+0x6c>
lea    (%rsi,%rax,8),%rsi
mov    %rax,%r9
test   $0x1,%r8b
jne    11e8 <svd_idamax+0xe8>
jmp    1200 <svd_idamax+0x100>
mov    %r8,%r11
and    $0xfffffffffffffffe,%r11
mov    %rax,%r9
neg    %r9
lea    (%rdx,%rdx,1),%r10
lea    (%rax,%rdx,2),%rdi
lea    (%rax,%rdx,1),%rbx
lea    0x0(,%rax,8),%rcx
neg    %rcx
mov    %rdx,%r14
shl    $0x4,%r14
movapd 0xe61(%rip),%xmm1
nop
movsd  (%rsi,%rbx,8),%xmm2
andpd  %xmm1,%xmm2
ucomisd %xmm0,%xmm2
cmova  %rbx,%rax
maxsd  %xmm0,%xmm2
movsd  (%rsi,%rdi,8),%xmm0
andpd  %xmm1,%xmm0
ucomisd %xmm2,%xmm0
cmova  %rdi,%rax
maxsd  %xmm2,%xmm0
sub    %r10,%r9
add    %r10,%rdi
add    %r10,%rbx
sub    %r14,%rcx
add    $0xfffffffffffffffe,%r11
jne    11a0 <svd_idamax+0xa0>
neg    %r9
sub    %rcx,%rsi
test   $0x1,%r8b
je     1200 <svd_idamax+0x100>
add    %rdx,%r9
movsd  (%rsi,%rdx,8),%xmm1
andpd  0xe08(%rip),%xmm1
ucomisd %xmm0,%xmm1
cmova  %r9,%rax
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define i64 @svd_idamax(i64 %0, double* nocapture %1, i64 %2) {
%4 = icmp slt i64 %0, 1
br i1 %4, label %58, label %5
5: ; preds = %3
%6 = icmp eq i64 %0, 1
br i1 %6, label %58, label %7
7: ; preds = %5
%8 = icmp eq i64 %2, 0
br i1 %8, label %58, label %9
9: ; preds = %7
%10 = icmp slt i64 %2, 0
%11 = sub nsw i64 1, %0
%12 = mul nsw i64 %11, %2
%13 = select i1 %10, i64 %12, i64 0
%14 = getelementptr inbounds double, double* %1, i64 %13
%15 = load double, double* %14
%16 = tail call double @llvm.fabs.f64(double %15)
%17 = add i64 %0, -1
%18 = and i64 %17, 1
%19 = icmp eq i64 %0, 2
br i1 %19, label %44, label %20
20: ; preds = %9
%21 = and i64 %17, -2
br label %22
22: ; preds = %22, %20
%23 = phi double [ %16, %20 ], [ %41, %22 ]
%24 = phi i64 [ %13, %20 ], [ %40, %22 ]
%25 = phi i64 [ %13, %20 ], [ %35, %22 ]
%26 = phi double* [ %14, %20 ], [ %36, %22 ]
%27 = phi i64 [ 0, %20 ], [ %42, %22 ]
%28 = add nsw i64 %25, %2
%29 = getelementptr inbounds double, double* %26, i64 %2
%30 = load double, double* %29
%31 = tail call double @llvm.fabs.f64(double %30)
%32 = fcmp ogt double %31, %23
%33 = select i1 %32, i64 %28, i64 %24
%34 = select i1 %32, double %31, double %23
%35 = add nsw i64 %28, %2
%36 = getelementptr inbounds double, double* %29, i64 %2
%37 = load double, double* %36
%38 = tail call double @llvm.fabs.f64(double %37)
%39 = fcmp ogt double %38, %34
%40 = select i1 %39, i64 %35, i64 %33
%41 = select i1 %39, double %38, double %34
%42 = add i64 %27, 2
%43 = icmp eq i64 %42, %21
br i1 %43, label %44, label %22
44: ; preds = %22, %9
%45 = phi i64 [ undef, %9 ], [ %40, %22 ]
%46 = phi double [ %16, %9 ], [ %41, %22 ]
%47 = phi i64 [ %13, %9 ], [ %40, %22 ]
%48 = phi i64 [ %13, %9 ], [ %35, %22 ]
%49 = phi double* [ %14, %9 ], [ %36, %22 ]
%50 = icmp eq i64 %18, 0
br i1 %50, label %58, label %51
51: ; preds = %44
%52 = add nsw i64 %48, %2
%53 = getelementptr inbounds double, double* %49, i64 %2
%54 = load double, double* %53
%55 = tail call double @llvm.fabs.f64(double %54)
%56 = fcmp ogt double %55, %46
%57 = select i1 %56, i64 %52, i64 %47
br label %58
58: ; preds = %51, %44, %7, %5, %3
%59 = phi i64 [ -1, %3 ], [ 0, %5 ], [ -1, %7 ], [ %45, %44 ], [ %57, %51 ]
ret i64 %59
}