void dger_3l(int m, int n, double alpha, double *x, int incx, double *y,
             int incy, double *A, int lda) {
  if (m == 0 || n == 0 || alpha == 0.0)
    return;
  int i, j;
  double *px, *py, temp;
  py = y;
  for (j = 0; j < n; j++) {
    temp = alpha * py[0];
    px = x;
    for (i = 0; i < m; i++) {
      A[i + lda * j] += px[0] * temp;
      px += incx;
    }
    py += incy;
  }
  return;
}


x86 assembly (clang, -O0):
<dger_3l>:
push   %rbp
mov    %rsp,%rbp
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9d,-0x2c(%rbp)
cmpl   $0x0,-0x4(%rbp)
je     1151 <dger_3l+0x51>
cmpl   $0x0,-0x8(%rbp)
je     1151 <dger_3l+0x51>
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1156 <dger_3l+0x56>
jp     1156 <dger_3l+0x56>
jmp    121b <dger_3l+0x11b>
mov    -0x28(%rbp),%rax
mov    %rax,-0x48(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1216 <dger_3l+0x116>
movsd  -0x10(%rbp),%xmm0
mov    -0x48(%rbp),%rax
mulsd  (%rax),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x40(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11f3 <dger_3l+0xf3>
mov    -0x40(%rbp),%rax
movsd  (%rax),%xmm0
movsd  -0x50(%rbp),%xmm2
mov    0x10(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    0x18(%rbp),%edx
imul   -0x34(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1192 <dger_3l+0x92>
mov    -0x2c(%rbp),%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1165 <dger_3l+0x65>
jmp    121b <dger_3l+0x11b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dger_3l>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %edi,%edi
je     120e <dger_3l+0x10e>
test   %esi,%esi
je     120e <dger_3l+0x10e>
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    112a <dger_3l+0x2a>
jnp    120e <dger_3l+0x10e>
test   %esi,%esi
jle    120e <dger_3l+0x10e>
mov    %rdx,%r10
mov    0x38(%rsp),%rax
movslq %ecx,%r12
movslq %r9d,%r14
movslq 0x40(%rsp),%rcx
mov    %esi,%r15d
mov    %edi,%r11d
mov    %r11d,%ebx
and    $0xfffffffe,%ebx
add    $0x8,%rax
mov    %rcx,-0x8(%rsp)
lea    0x0(,%rcx,8),%r13
mov    %r12,%rcx
shl    $0x4,%rcx
xor    %esi,%esi
jmp    1184 <dger_3l+0x84>
nopl   (%rax)
lea    (%r8,%r14,8),%r8
add    $0x1,%rsi
add    %r13,%rax
cmp    %r15,%rsi
je     120e <dger_3l+0x10e>
test   %edi,%edi
jle    1170 <dger_3l+0x70>
movsd  (%r8),%xmm1
mulsd  %xmm0,%xmm1
cmp    $0x1,%edi
jne    11a0 <dger_3l+0xa0>
xor    %ebp,%ebp
mov    %r10,%rdx
jmp    11e4 <dger_3l+0xe4>
nopl   (%rax)
mov    %r10,%rdx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rdx),%xmm2
mulsd  %xmm1,%xmm2
addsd  -0x8(%rax,%rbp,8),%xmm2
movsd  %xmm2,-0x8(%rax,%rbp,8)
movsd  (%rdx,%r12,8),%xmm2
mulsd  %xmm1,%xmm2
addsd  (%rax,%rbp,8),%xmm2
movsd  %xmm2,(%rax,%rbp,8)
add    $0x2,%rbp
add    %rcx,%rdx
cmp    %rbp,%rbx
jne    11b0 <dger_3l+0xb0>
test   $0x1,%r11b
je     1170 <dger_3l+0x70>
mov    %rsi,%r9
imul   -0x8(%rsp),%r9
mulsd  (%rdx),%xmm1
add    %r9,%rbp
mov    0x38(%rsp),%rdx
addsd  (%rdx,%rbp,8),%xmm1
movsd  %xmm1,(%rdx,%rbp,8)
jmp    1170 <dger_3l+0x70>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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