double sdot(n, sx, incx, sy, incy)
int n, incx, incy;
double *sx, *sy;
{
  int i, ix, iy;
  double stemp = 0.0;
  if (n <= 0)
    return (0.0);
  ix = 0;
  iy = 0;
  if (incx < 0)
    ix = -n * incx;
  if (incy < 0)
    iy = -n * incy;
  for (i = 0; i < n; i++, ix += incx, iy += incy)
    stemp += sx[ix] * sx[iy];
  return (stemp);
}


x86 assembly (clang, -O0):
<sdot>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8d,-0x2c(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
cmpl   $0x0,-0xc(%rbp)
jg     1135 <sdot+0x35>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11d8 <sdot+0xd8>
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x38(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jge    1159 <sdot+0x59>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
imul   -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jge    116f <sdot+0x6f>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
imul   -0x2c(%rbp),%eax
mov    %eax,-0x38(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11ce <sdot+0xce>
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
add    -0x38(%rbp),%eax
mov    %eax,-0x38(%rbp)
jmp    1176 <sdot+0x76>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<sdot>:
push   %r15
push   %r14
push   %r12
push   %rbx
test   %edi,%edi
jle    113a <sdot+0x3a>
mov    %edi,%eax
imul   %r8d,%eax
neg    %eax
mov    %r8d,%ecx
sar    $0x1f,%ecx
and    %eax,%ecx
mov    %edi,%eax
imul   %edx,%eax
neg    %eax
mov    %edx,%ebx
sar    $0x1f,%ebx
and    %eax,%ebx
movslq %ecx,%rax
movslq %ebx,%rcx
cmp    $0x1,%edi
jne    1140 <sdot+0x40>
xorpd  %xmm0,%xmm0
jmp    11a4 <sdot+0xa4>
xorpd  %xmm0,%xmm0
jmp    11bc <sdot+0xbc>
movslq %r8d,%r8
movslq %edx,%r9
mov    %edi,%r10d
and    $0xfffffffe,%r10d
lea    (%rsi,%rcx,8),%rdx
mov    %r9,%r11
shl    $0x4,%r11
lea    (%rsi,%r9,8),%r14
lea    (%rsi,%rax,8),%rbx
mov    %r8,%r15
shl    $0x4,%r15
lea    (%rsi,%r8,8),%r12
xorpd  %xmm0,%xmm0
nop
movsd  (%rdx),%xmm1
mulsd  (%rbx),%xmm1
addsd  %xmm0,%xmm1
movsd  (%r14,%rcx,8),%xmm0
mulsd  (%r12,%rax,8),%xmm0
add    %r9,%rcx
add    %r8,%rax
addsd  %xmm1,%xmm0
add    %r9,%rcx
add    %r8,%rax
add    %r11,%rdx
add    %r15,%rbx
add    $0xfffffffe,%r10d
jne    1170 <sdot+0x70>
test   $0x1,%dil
je     11bc <sdot+0xbc>
movsd  (%rsi,%rcx,8),%xmm1
mulsd  (%rsi,%rax,8),%xmm1
addsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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