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


x86 assembly (clang, -O0):
<dscal>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x24(%rbp)
cmpl   $0x0,-0x4(%rbp)
jg     1130 <dscal+0x30>
jmp    12d8 <dscal+0x1d8>
cmpl   $0x1,-0x1c(%rbp)
je     1189 <dscal+0x89>
mov    -0x4(%rbp),%eax
imul   -0x1c(%rbp),%eax
mov    %eax,-0x2c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    1184 <dscal+0x84>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    114b <dscal+0x4b>
jmp    12d8 <dscal+0x1d8>
mov    -0x4(%rbp),%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
mov    %edx,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
je     11f5 <dscal+0xf5>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11e1 <dscal+0xe1>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11a8 <dscal+0xa8>
cmpl   $0x5,-0x4(%rbp)
jge    11f0 <dscal+0xf0>
jmp    12d8 <dscal+0x1d8>
jmp    11f5 <dscal+0xf5>
mov    -0x24(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    12d8 <dscal+0x1d8>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
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
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
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
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x2,%ecx
movslq %ecx,%rcx
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
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
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
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x4,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x20(%rbp)
jmp    11fb <dscal+0xfb>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dscal>:
push   %rbx
test   %edi,%edi
jle    12b3 <dscal+0x1b3>
cmp    $0x1,%edx
jne    1141 <dscal+0x41>
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 <dscal+0x151>
mov    %r9d,%edx
cmp    $0x4,%r9d
jae    117b <dscal+0x7b>
xor    %eax,%eax
jmp    1230 <dscal+0x130>
imul   %edx,%edi
test   %edi,%edi
jle    12b3 <dscal+0x1b3>
movslq %edx,%rax
mov    %edi,%ecx
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rdx,8)
add    %rax,%rdx
cmp    %rcx,%rdx
jl     1160 <dscal+0x60>
jmp    12b3 <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 <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 <dscal+0xb0>
test   $0x1,%r11b
je     121c <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 <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 <dscal+0x130>
cmp    $0x5,%edi
jl     12b3 <dscal+0x1b3>
cmp    %edi,%r9d
jge    12b3 <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 <dscal+0x180>
pop    %rbx
ret
xor    %ecx,%ecx
test   $0x1,%r11b
jne    11fe <dscal+0xfe>
jmp    121c <dscal+0x11c>

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

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