void zmemset(const int *m, const int *n, const double *alpha, double *A,
             const int *ldA) {
  int i, j;
  for (j = 0; j < *n; j++)
    for (i = 0; i < *m; i++) {
      A[2 * (i + j * *ldA)] = alpha[0];
      A[2 * (i + j * *ldA)] = alpha[1];
    }
}


x86 assembly (clang, -O0):
<zmemset>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    11b2 <zmemset+0xb2>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x8(%rbp),%rcx
cmp    (%rcx),%eax
jge    119f <zmemset+0x9f>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x30(%rbp),%edx
mov    -0x28(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x30(%rbp),%edx
mov    -0x28(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1135 <zmemset+0x35>
jmp    11a4 <zmemset+0xa4>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    111f <zmemset+0x1f>
pop    %rbp
ret

x86 assembly (clang, -O2):
<zmemset>:
push   %rbp
push   %r14
push   %rbx
mov    (%rsi),%r9d
test   %r9d,%r9d
jle    11c4 <zmemset+0xc4>
mov    (%rdi),%r10d
mov    %r10d,%edi
and    $0xfffffffe,%edi
xor    %r14d,%r14d
xor    %esi,%esi
jmp    1130 <zmemset+0x30>
add    $0x1,%esi
add    $0x2,%r14d
cmp    %r9d,%esi
je     11c4 <zmemset+0xc4>
test   %r10d,%r10d
jle    1120 <zmemset+0x20>
mov    (%r8),%r11d
cmp    $0x1,%r10d
jne    1150 <zmemset+0x50>
xor    %ebx,%ebx
jmp    119a <zmemset+0x9a>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r11d,%eax
imul   %r14d,%eax
xor    %ebx,%ebx
nopl   0x0(%rax)
movsd  (%rdx),%xmm0
cltq
movsd  %xmm0,(%rcx,%rax,8)
movsd  0x8(%rdx),%xmm0
movsd  %xmm0,(%rcx,%rax,8)
movsd  (%rdx),%xmm0
lea    0x2(%rax),%ebp
movslq %ebp,%rbp
movsd  %xmm0,(%rcx,%rbp,8)
movsd  0x8(%rdx),%xmm0
movsd  %xmm0,(%rcx,%rbp,8)
add    $0x2,%rbx
add    $0x4,%eax
cmp    %rbx,%rdi
jne    1160 <zmemset+0x60>
test   $0x1,%r10b
je     1120 <zmemset+0x20>
imul   %esi,%r11d
movsd  (%rdx),%xmm0
add    %r11d,%ebx
add    %ebx,%ebx
movslq %ebx,%rax
movsd  %xmm0,(%rcx,%rax,8)
movsd  0x8(%rdx),%xmm0
movsd  %xmm0,(%rcx,%rax,8)
jmp    1120 <zmemset+0x20>
pop    %rbx
pop    %r14
pop    %rbp
ret

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

LLVM IR (-O2):
define void @zmemset(i32* nocapture %0, i32* nocapture %1, double* nocapture %2, double* nocapture writeonly %3, i32* nocapture %4) {
%6 = load i32, i32* %1
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %56
8: ; preds = %5
%9 = load i32, i32* %0
%10 = icmp sgt i32 %9, 0
%11 = getelementptr inbounds double, double* %2, i64 1
%12 = zext i32 %9 to i64
%13 = and i64 %12, 1
%14 = icmp eq i32 %9, 1
%15 = and i64 %12, 4294967294
%16 = icmp eq i64 %13, 0
br label %17
17: ; preds = %8, %53
%18 = phi i32 [ 0, %8 ], [ %54, %53 ]
br i1 %10, label %19, label %53
19: ; preds = %17
%20 = load i32, i32* %4
%21 = mul nsw i32 %20, %18
br i1 %14, label %43, label %22
22: ; preds = %19, %22
%23 = phi i64 [ %40, %22 ], [ 0, %19 ]
%24 = phi i64 [ %41, %22 ], [ 0, %19 ]
%25 = trunc i64 %23 to i32
%26 = load double, double* %2
%27 = add nsw i32 %21, %25
%28 = shl nsw i32 %27, 1
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %3, i64 %29
store double %26, double* %30
%31 = load double, double* %11
store double %31, double* %30
%32 = trunc i64 %23 to i32
%33 = or i32 %32, 1
%34 = load double, double* %2
%35 = add nsw i32 %21, %33
%36 = shl nsw i32 %35, 1
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %3, i64 %37
store double %34, double* %38
%39 = load double, double* %11
store double %39, double* %38
%40 = add nuw nsw i64 %23, 2
%41 = add i64 %24, 2
%42 = icmp eq i64 %41, %15
br i1 %42, label %43, label %22
43: ; preds = %22, %19
%44 = phi i64 [ 0, %19 ], [ %40, %22 ]
br i1 %16, label %53, label %45
45: ; preds = %43
%46 = trunc i64 %44 to i32
%47 = load double, double* %2
%48 = add nsw i32 %21, %46
%49 = shl nsw i32 %48, 1
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %3, i64 %50
store double %47, double* %51
%52 = load double, double* %11
store double %52, double* %51
br label %53
53: ; preds = %45, %43, %17
%54 = add nuw nsw i32 %18, 1
%55 = icmp eq i32 %54, %6
br i1 %55, label %56, label %17
56: ; preds = %53, %5
ret void
}