void my_dscal(int n, double da, double *dx, int incx) {
  int i, m, nincx;
  if (n <= 0 || incx <= 0)
    return;
  if (incx != 1) {
    nincx = n * incx;
    for (i = 0; i < nincx; i += incx)
      dx[i] *= da;
    return;
  } else {
    m = n % 5;
    if (m != 0) {
      for (i = 0; i < m; i++)
        dx[i] *= da;
      if (n < 5)
        return;
    }
    for (i = m; i < n; i += 5) {
      dx[i] *= da;
      dx[i + 1] *= da;
      dx[i + 2] *= da;
      dx[i + 3] *= da;
      dx[i + 4] *= da;
    }
  }
}


x86 assembly (clang, -O0):
<my_dscal>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
cmpl   $0x0,-0x4(%rbp)
jle    1127 <my_dscal+0x27>
cmpl   $0x0,-0x1c(%rbp)
jg     112c <my_dscal+0x2c>
jmp    128d <my_dscal+0x18d>
cmpl   $0x1,-0x1c(%rbp)
je     117d <my_dscal+0x7d>
mov    -0x4(%rbp),%eax
imul   -0x1c(%rbp),%eax
mov    %eax,-0x28(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    1178 <my_dscal+0x78>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    1147 <my_dscal+0x47>
jmp    128d <my_dscal+0x18d>
mov    -0x4(%rbp),%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
mov    %edx,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
je     11e1 <my_dscal+0xe1>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11cd <my_dscal+0xcd>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    119c <my_dscal+0x9c>
cmpl   $0x5,-0x4(%rbp)
jge    11dc <my_dscal+0xdc>
jmp    128d <my_dscal+0x18d>
jmp    11e1 <my_dscal+0xe1>
mov    -0x24(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1288 <my_dscal+0x188>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x2,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x4,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x20(%rbp)
jmp    11e7 <my_dscal+0xe7>
jmp    128d <my_dscal+0x18d>
pop    %rbp
ret

x86 assembly (clang, -O2):
<my_dscal>:
push   %rbx
test   %edi,%edi
jle    12b3 <my_dscal+0x1b3>
test   %edx,%edx
jle    12b3 <my_dscal+0x1b3>
cmp    $0x1,%edx
jne    1149 <my_dscal+0x49>
mov    %edi,%r8d
mov    $0xcccccccd,%r10d
mov    %r8,%rax
imul   %r10,%rax
shr    $0x22,%rax
lea    (%rax,%rax,4),%eax
mov    %edi,%r9d
sub    %eax,%r9d
je     1251 <my_dscal+0x151>
mov    %r9d,%edx
cmp    $0x4,%r9d
jae    117b <my_dscal+0x7b>
xor    %eax,%eax
jmp    1230 <my_dscal+0x130>
imul   %edx,%edi
test   %edi,%edi
jle    12b3 <my_dscal+0x1b3>
mov    %edx,%eax
mov    %edi,%ecx
xor    %edx,%edx
nopw   0x0(%rax,%rax,1)
movsd  (%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rdx,8)
add    %rax,%rdx
cmp    %rcx,%rdx
jl     1160 <my_dscal+0x60>
jmp    12b3 <my_dscal+0x1b3>
mov    %edx,%eax
and    $0x4,%eax
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rax),%rcx
mov    %rcx,%r11
shr    $0x2,%r11
add    $0x1,%r11
test   %rcx,%rcx
je     12b5 <my_dscal+0x1b5>
mov    %r11,%rbx
and    $0xfffffffffffffffe,%rbx
xor    %ecx,%ecx
nopl   0x0(%rax)
movupd (%rsi,%rcx,8),%xmm2
movupd 0x10(%rsi,%rcx,8),%xmm3
movupd 0x20(%rsi,%rcx,8),%xmm4
movupd 0x30(%rsi,%rcx,8),%xmm5
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rsi,%rcx,8)
movupd %xmm3,0x10(%rsi,%rcx,8)
mulpd  %xmm1,%xmm4
mulpd  %xmm1,%xmm5
movupd %xmm4,0x20(%rsi,%rcx,8)
movupd %xmm5,0x30(%rsi,%rcx,8)
add    $0x8,%rcx
add    $0xfffffffffffffffe,%rbx
jne    11b0 <my_dscal+0xb0>
test   $0x1,%r11b
je     121c <my_dscal+0x11c>
movupd (%rsi,%rcx,8),%xmm2
movupd 0x10(%rsi,%rcx,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rsi,%rcx,8)
movupd %xmm3,0x10(%rsi,%rcx,8)
cmp    %rdx,%rax
je     1247 <my_dscal+0x147>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rsi,%rax,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rax,8)
add    $0x1,%rax
cmp    %rax,%rdx
jne    1230 <my_dscal+0x130>
cmp    $0x5,%edi
jl     12b3 <my_dscal+0x1b3>
cmp    %edi,%r9d
jge    12b3 <my_dscal+0x1b3>
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
imul   %r8,%r10
shr    $0x22,%r10
lea    (%r10,%r10,4),%rax
sub    %rax,%r8
lea    (%rsi,%r8,8),%rax
add    $0x20,%rax
lea    (%r10,%r10,4),%edx
mov    %edi,%ecx
sub    %edx,%ecx
nopl   0x0(%rax,%rax,1)
movupd -0x20(%rax),%xmm2
movupd -0x10(%rax),%xmm3
mulpd  %xmm1,%xmm2
movupd %xmm2,-0x20(%rax)
mulpd  %xmm1,%xmm3
movupd %xmm3,-0x10(%rax)
movsd  (%rax),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rax)
add    $0x28,%rax
add    $0x5,%ecx
cmp    %edi,%ecx
jl     1280 <my_dscal+0x180>
pop    %rbx
ret
xor    %ecx,%ecx
test   $0x1,%r11b
jne    11fe <my_dscal+0xfe>
jmp    121c <my_dscal+0x11c>

LLVM IR (-O0):
define void @my_dscal(i32 %0, double %1, double* %2, i32 %3) {
%5 = alloca i32
%6 = alloca double
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
store i32 %0, i32* %5
store double %1, double* %6
store double* %2, double** %7
store i32 %3, i32* %8
%12 = load i32, i32* %5
%13 = icmp sle i32 %12, 0
br i1 %13, label %17, label %14
14: ; preds = %4
%15 = load i32, i32* %8
%16 = icmp sle i32 %15, 0
br i1 %16, label %17, label %18
17: ; preds = %14, %4
br label %118
18: ; preds = %14
%19 = load i32, i32* %8
%20 = icmp ne i32 %19, 1
br i1 %20, label %21, label %42
21: ; preds = %18
%22 = load i32, i32* %5
%23 = load i32, i32* %8
%24 = mul nsw i32 %22, %23
store i32 %24, i32* %11
store i32 0, i32* %9
br label %25
25: ; preds = %37, %21
%26 = load i32, i32* %9
%27 = load i32, i32* %11
%28 = icmp slt i32 %26, %27
br i1 %28, label %29, label %41
29: ; preds = %25
%30 = load double, double* %6
%31 = load double*, double** %7
%32 = load i32, i32* %9
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %31, i64 %33
%35 = load double, double* %34
%36 = fmul double %35, %30
store double %36, double* %34
br label %37
37: ; preds = %29
%38 = load i32, i32* %8
%39 = load i32, i32* %9
%40 = add nsw i32 %39, %38
store i32 %40, i32* %9
br label %25
41: ; preds = %25
br label %118
42: ; preds = %18
%43 = load i32, i32* %5
%44 = srem i32 %43, 5
store i32 %44, i32* %10
%45 = load i32, i32* %10
%46 = icmp ne i32 %45, 0
br i1 %46, label %47, label %68
47: ; preds = %42
store i32 0, i32* %9
br label %48
48: ; preds = %60, %47
%49 = load i32, i32* %9
%50 = load i32, i32* %10
%51 = icmp slt i32 %49, %50
br i1 %51, label %52, label %63
52: ; preds = %48
%53 = load double, double* %6
%54 = load double*, double** %7
%55 = load i32, i32* %9
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %54, i64 %56
%58 = load double, double* %57
%59 = fmul double %58, %53
store double %59, double* %57
br label %60
60: ; preds = %52
%61 = load i32, i32* %9
%62 = add nsw i32 %61, 1
store i32 %62, i32* %9
br label %48
63: ; preds = %48
%64 = load i32, i32* %5
%65 = icmp slt i32 %64, 5
br i1 %65, label %66, label %67
66: ; preds = %63
br label %118
67: ; preds = %63
br label %68
68: ; preds = %67, %42
%69 = load i32, i32* %10
store i32 %69, i32* %9
br label %70
70: ; preds = %114, %68
%71 = load i32, i32* %9
%72 = load i32, i32* %5
%73 = icmp slt i32 %71, %72
br i1 %73, label %74, label %117
74: ; preds = %70
%75 = load double, double* %6
%76 = load double*, double** %7
%77 = load i32, i32* %9
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds double, double* %76, i64 %78
%80 = load double, double* %79
%81 = fmul double %80, %75
store double %81, double* %79
%82 = load double, double* %6
%83 = load double*, double** %7
%84 = load i32, i32* %9
%85 = add nsw i32 %84, 1
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds double, double* %83, i64 %86
%88 = load double, double* %87
%89 = fmul double %88, %82
store double %89, double* %87
%90 = load double, double* %6
%91 = load double*, double** %7
%92 = load i32, i32* %9
%93 = add nsw i32 %92, 2
%94 = sext i32 %93 to i64
%95 = getelementptr inbounds double, double* %91, i64 %94
%96 = load double, double* %95
%97 = fmul double %96, %90
store double %97, double* %95
%98 = load double, double* %6
%99 = load double*, double** %7
%100 = load i32, i32* %9
%101 = add nsw i32 %100, 3
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds double, double* %99, i64 %102
%104 = load double, double* %103
%105 = fmul double %104, %98
store double %105, double* %103
%106 = load double, double* %6
%107 = load double*, double** %7
%108 = load i32, i32* %9
%109 = add nsw i32 %108, 4
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds double, double* %107, i64 %110
%112 = load double, double* %111
%113 = fmul double %112, %106
store double %113, double* %111
br label %114
114: ; preds = %74
%115 = load i32, i32* %9
%116 = add nsw i32 %115, 5
store i32 %116, i32* %9
br label %70
117: ; preds = %70
br label %118
118: ; preds = %17, %41, %66, %117
ret void
}

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