void pmrrr_dscal(int *n, double *alpha, double *restrict x, int *incx) {
  int i;
  int stride = *incx;
  int size = *n;
  double s = *alpha;
  for (i = 0; i < size; i++)
    x[i * stride] *= s;
  return;
}


x86 assembly (clang, -O0):
<pmrrr_dscal>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    1171 <pmrrr_dscal+0x71>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x28(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    113a <pmrrr_dscal+0x3a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<pmrrr_dscal>:
push   %rbx
mov    (%rdi),%r11d
test   %r11d,%r11d
jle    12a3 <pmrrr_dscal+0x1a3>
movsd  (%rsi),%xmm0
mov    (%rcx),%eax
movslq %eax,%r8
xor    %r10d,%r10d
cmp    $0x4,%r11d
jb     11e6 <pmrrr_dscal+0xe6>
cmp    $0x1,%eax
jne    11e6 <pmrrr_dscal+0xe6>
mov    %r11d,%r10d
and    $0xfffffffc,%r10d
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%r10),%rax
mov    %rax,%r9
shr    $0x2,%r9
add    $0x1,%r9
test   %rax,%rax
je     12a5 <pmrrr_dscal+0x1a5>
mov    %r9,%rdi
and    $0xfffffffffffffffe,%rdi
mov    %r8,%rcx
shl    $0x5,%rcx
lea    0x10(%rdx),%rax
mov    %r8,%rbx
shl    $0x6,%rbx
xor    %esi,%esi
xchg   %ax,%ax
movupd -0x10(%rax),%xmm2
movupd (%rax),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,-0x10(%rax)
movupd %xmm3,(%rax)
movupd -0x10(%rax,%rcx,1),%xmm2
movupd (%rax,%rcx,1),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,-0x10(%rax,%rcx,1)
movupd %xmm3,(%rax,%rcx,1)
add    $0x8,%rsi
add    %rbx,%rax
add    $0xfffffffffffffffe,%rdi
jne    1170 <pmrrr_dscal+0x70>
test   $0x1,%r9b
je     11dd <pmrrr_dscal+0xdd>
imul   %r8,%rsi
movupd (%rdx,%rsi,8),%xmm2
movupd 0x10(%rdx,%rsi,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rdx,%rsi,8)
movupd %xmm3,0x10(%rdx,%rsi,8)
cmp    %r11,%r10
je     12a3 <pmrrr_dscal+0x1a3>
mov    %r10,%rsi
not    %rsi
add    %r11,%rsi
mov    %r11,%rax
and    $0x3,%rax
je     122b <pmrrr_dscal+0x12b>
mov    %r10,%rcx
imul   %r8,%rcx
lea    (%rdx,%rcx,8),%rcx
lea    0x0(,%r8,8),%rdi
neg    %rax
xor    %ebx,%ebx
movsd  (%rcx),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx)
add    $0xffffffffffffffff,%rbx
add    %rdi,%rcx
cmp    %rbx,%rax
jne    1210 <pmrrr_dscal+0x110>
sub    %rbx,%r10
cmp    $0x3,%rsi
jb     12a3 <pmrrr_dscal+0x1a3>
sub    %r10,%r11
lea    0x3(%r10),%rsi
imul   %r8,%rsi
mov    %r8,%rcx
shl    $0x5,%rcx
lea    0x2(%r10),%rax
imul   %r8,%rax
mov    %r10,%rdi
imul   %r8,%rdi
add    $0x1,%r10
imul   %r8,%r10
nopw   0x0(%rax,%rax,1)
movsd  (%rdx,%rdi,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdx,%rdi,8)
movsd  (%rdx,%r10,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdx,%r10,8)
movsd  (%rdx,%rax,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdx,%rax,8)
movsd  (%rdx,%rsi,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdx,%rsi,8)
add    %rcx,%rdx
add    $0xfffffffffffffffc,%r11
jne    1260 <pmrrr_dscal+0x160>
pop    %rbx
ret
xor    %esi,%esi
test   $0x1,%r9b
jne    11bb <pmrrr_dscal+0xbb>
jmp    11dd <pmrrr_dscal+0xdd>

LLVM IR (-O0):
define void @pmrrr_dscal(i32* %0, double* %1, double* noalias %2, i32* %3) {
%5 = alloca i32*
%6 = alloca double*
%7 = alloca double*
%8 = alloca i32*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca double
store i32* %0, i32** %5
store double* %1, double** %6
store double* %2, double** %7
store i32* %3, i32** %8
%13 = load i32*, i32** %8
%14 = load i32, i32* %13
store i32 %14, i32* %10
%15 = load i32*, i32** %5
%16 = load i32, i32* %15
store i32 %16, i32* %11
%17 = load double*, double** %6
%18 = load double, double* %17
store double %18, double* %12
store i32 0, i32* %9
br label %19
19: ; preds = %33, %4
%20 = load i32, i32* %9
%21 = load i32, i32* %11
%22 = icmp slt i32 %20, %21
br i1 %22, label %23, label %36
23: ; preds = %19
%24 = load double, double* %12
%25 = load double*, double** %7
%26 = load i32, i32* %9
%27 = load i32, i32* %10
%28 = mul nsw i32 %26, %27
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %25, i64 %29
%31 = load double, double* %30
%32 = fmul double %31, %24
store double %32, double* %30
br label %33
33: ; preds = %23
%34 = load i32, i32* %9
%35 = add nsw i32 %34, 1
store i32 %35, i32* %9
br label %19
36: ; preds = %19
ret void
}

LLVM IR (-O2):
define void @pmrrr_dscal(i32* nocapture %0, double* nocapture %1, double* noalias nocapture %2, i32* nocapture %3) {
%5 = load i32, i32* %0
%6 = load double, double* %1
%7 = icmp sgt i32 %5, 0
br i1 %7, label %8, label %116
8: ; preds = %4
%9 = load i32, i32* %3
%10 = sext i32 %9 to i64
%11 = zext i32 %5 to i64
%12 = icmp ugt i32 %5, 3
%13 = icmp eq i32 %9, 1
%14 = select i1 %12, i1 %13, i1 false
br i1 %14, label %15, label %74
15: ; preds = %8
%16 = and i64 %11, 4294967292
%17 = insertelement <2 x double> poison, double %6, i64 0
%18 = shufflevector <2 x double> %17, <2 x double> poison, <2 x i32> zeroinitializer
%19 = insertelement <2 x double> poison, double %6, i64 0
%20 = shufflevector <2 x double> %19, <2 x double> poison, <2 x i32> zeroinitializer
%21 = add nsw i64 %16, -4
%22 = lshr exact i64 %21, 2
%23 = add nuw nsw i64 %22, 1
%24 = and i64 %23, 1
%25 = icmp eq i64 %21, 0
br i1 %25, label %57, label %26
26: ; preds = %15
%27 = and i64 %23, 9223372036854775806
br label %28
28: ; preds = %28, %26
%29 = phi i64 [ 0, %26 ], [ %54, %28 ]
%30 = phi i64 [ 0, %26 ], [ %55, %28 ]
%31 = mul nsw i64 %29, %10
%32 = getelementptr inbounds double, double* %2, i64 %31
%33 = bitcast double* %32 to <2 x double>*
%34 = load <2 x double>, <2 x double>* %33
%35 = getelementptr inbounds double, double* %32, i64 2
%36 = bitcast double* %35 to <2 x double>*
%37 = load <2 x double>, <2 x double>* %36
%38 = fmul <2 x double> %18, %34
%39 = fmul <2 x double> %20, %37
%40 = bitcast double* %32 to <2 x double>*
store <2 x double> %38, <2 x double>* %40
%41 = bitcast double* %35 to <2 x double>*
store <2 x double> %39, <2 x double>* %41
%42 = or i64 %29, 4
%43 = mul nsw i64 %42, %10
%44 = getelementptr inbounds double, double* %2, i64 %43
%45 = bitcast double* %44 to <2 x double>*
%46 = load <2 x double>, <2 x double>* %45
%47 = getelementptr inbounds double, double* %44, i64 2
%48 = bitcast double* %47 to <2 x double>*
%49 = load <2 x double>, <2 x double>* %48
%50 = fmul <2 x double> %18, %46
%51 = fmul <2 x double> %20, %49
%52 = bitcast double* %44 to <2 x double>*
store <2 x double> %50, <2 x double>* %52
%53 = bitcast double* %47 to <2 x double>*
store <2 x double> %51, <2 x double>* %53
%54 = add nuw i64 %29, 8
%55 = add i64 %30, 2
%56 = icmp eq i64 %55, %27
br i1 %56, label %57, label %28
57: ; preds = %28, %15
%58 = phi i64 [ 0, %15 ], [ %54, %28 ]
%59 = icmp eq i64 %24, 0
br i1 %59, label %72, label %60
60: ; preds = %57
%61 = mul nsw i64 %58, %10
%62 = getelementptr inbounds double, double* %2, i64 %61
%63 = bitcast double* %62 to <2 x double>*
%64 = load <2 x double>, <2 x double>* %63
%65 = getelementptr inbounds double, double* %62, i64 2
%66 = bitcast double* %65 to <2 x double>*
%67 = load <2 x double>, <2 x double>* %66
%68 = fmul <2 x double> %18, %64
%69 = fmul <2 x double> %20, %67
%70 = bitcast double* %62 to <2 x double>*
store <2 x double> %68, <2 x double>* %70
%71 = bitcast double* %65 to <2 x double>*
store <2 x double> %69, <2 x double>* %71
br label %72
72: ; preds = %57, %60
%73 = icmp eq i64 %16, %11
br i1 %73, label %116, label %74
74: ; preds = %8, %72
%75 = phi i64 [ 0, %8 ], [ %16, %72 ]
%76 = xor i64 %75, -1
%77 = add nsw i64 %76, %11
%78 = and i64 %11, 3
%79 = icmp eq i64 %78, 0
br i1 %79, label %90, label %80
80: ; preds = %74, %80
%81 = phi i64 [ %87, %80 ], [ %75, %74 ]
%82 = phi i64 [ %88, %80 ], [ 0, %74 ]
%83 = mul nsw i64 %81, %10
%84 = getelementptr inbounds double, double* %2, i64 %83
%85 = load double, double* %84
%86 = fmul double %6, %85
store double %86, double* %84
%87 = add nuw nsw i64 %81, 1
%88 = add i64 %82, 1
%89 = icmp eq i64 %88, %78
br i1 %89, label %90, label %80
90: ; preds = %80, %74
%91 = phi i64 [ %75, %74 ], [ %87, %80 ]
%92 = icmp ult i64 %77, 3
br i1 %92, label %116, label %93
93: ; preds = %90, %93
%94 = phi i64 [ %114, %93 ], [ %91, %90 ]
%95 = mul nsw i64 %94, %10
%96 = getelementptr inbounds double, double* %2, i64 %95
%97 = load double, double* %96
%98 = fmul double %6, %97
store double %98, double* %96
%99 = add nuw nsw i64 %94, 1
%100 = mul nsw i64 %99, %10
%101 = getelementptr inbounds double, double* %2, i64 %100
%102 = load double, double* %101
%103 = fmul double %6, %102
store double %103, double* %101
%104 = add nuw nsw i64 %94, 2
%105 = mul nsw i64 %104, %10
%106 = getelementptr inbounds double, double* %2, i64 %105
%107 = load double, double* %106
%108 = fmul double %6, %107
store double %108, double* %106
%109 = add nuw nsw i64 %94, 3
%110 = mul nsw i64 %109, %10
%111 = getelementptr inbounds double, double* %2, i64 %110
%112 = load double, double* %111
%113 = fmul double %6, %112
store double %113, double* %111
%114 = add nuw nsw i64 %94, 4
%115 = icmp eq i64 %114, %11
br i1 %115, label %116, label %93
116: ; preds = %90, %93, %72, %4
ret void
}