void fortho(int D, double *x, double *y, double *z, double r) {
  double *stop;
  stop = x + D;
  while (x < stop)
    *x++ = *y++ - r * *z++;
}


x86 assembly (clang, -O0):
<fortho>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x4(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x30(%rbp),%rax
jae    119b <fortho+0x9b>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x18(%rbp)
movsd  (%rax),%xmm1
movsd  -0x28(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x20(%rbp)
movsd  (%rax),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x10(%rbp)
movsd  %xmm0,(%rax)
jmp    112b <fortho+0x2b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<fortho>:
test   %edi,%edi
jle    1164 <fortho+0x64>
movslq %edi,%rax
lea    (%rsi,%rax,8),%r11
xorpd  0xeed(%rip),%xmm0
lea    0x8(%rsi),%rax
cmp    %rax,%r11
mov    %rax,%r9
cmova  %r11,%r9
mov    %rsi,%rdi
not    %rdi
add    %rdi,%r9
cmp    $0x18,%r9
jae    1165 <fortho+0x65>
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rcx,%rax,1),%xmm1
mulsd  %xmm0,%xmm1
addsd  (%rdx,%rax,1),%xmm1
movsd  %xmm1,(%rsi,%rax,1)
lea    (%rsi,%rax,1),%rdi
add    $0x8,%rdi
add    $0x8,%rax
cmp    %r11,%rdi
jb     1140 <fortho+0x40>
ret
cmp    %rax,%r11
cmova  %r11,%rax
add    %rdi,%rax
and    $0xfffffffffffffff8,%rax
lea    (%rdx,%rax,1),%rdi
add    $0x8,%rdi
cmp    %rsi,%rdi
seta   %r8b
lea    (%rsi,%rax,1),%rdi
add    $0x8,%rdi
cmp    %rdx,%rdi
seta   %r10b
add    %rcx,%rax
add    $0x8,%rax
cmp    %rsi,%rax
seta   %al
cmp    %rcx,%rdi
seta   %dil
test   %r10b,%r8b
jne    1130 <fortho+0x30>
and    %dil,%al
jne    1130 <fortho+0x30>
shr    $0x3,%r9
add    $0x1,%r9
mov    %r9,%r8
and    $0xfffffffffffffffc,%r8
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%r8),%rax
mov    %rax,%r10
shr    $0x2,%r10
add    $0x1,%r10
test   %rax,%rax
je     12b0 <fortho+0x1b0>
mov    %r10,%rax
and    $0xfffffffffffffffe,%rax
xor    %edi,%edi
nopw   0x0(%rax,%rax,1)
movupd (%rdx,%rdi,8),%xmm2
movupd 0x10(%rdx,%rdi,8),%xmm3
movupd (%rcx,%rdi,8),%xmm4
movupd 0x10(%rcx,%rdi,8),%xmm5
mulpd  %xmm1,%xmm4
addpd  %xmm2,%xmm4
mulpd  %xmm1,%xmm5
addpd  %xmm3,%xmm5
movupd %xmm4,(%rsi,%rdi,8)
movupd %xmm5,0x10(%rsi,%rdi,8)
movupd 0x20(%rdx,%rdi,8),%xmm2
movupd 0x30(%rdx,%rdi,8),%xmm3
movupd 0x20(%rcx,%rdi,8),%xmm4
movupd 0x30(%rcx,%rdi,8),%xmm5
mulpd  %xmm1,%xmm4
addpd  %xmm2,%xmm4
mulpd  %xmm1,%xmm5
addpd  %xmm3,%xmm5
movupd %xmm4,0x20(%rsi,%rdi,8)
movupd %xmm5,0x30(%rsi,%rdi,8)
add    $0x8,%rdi
add    $0xfffffffffffffffe,%rax
jne    11f0 <fortho+0xf0>
test   $0x1,%r10b
je     1296 <fortho+0x196>
movupd (%rdx,%rdi,8),%xmm2
movupd 0x10(%rdx,%rdi,8),%xmm3
movupd (%rcx,%rdi,8),%xmm4
movupd 0x10(%rcx,%rdi,8),%xmm5
mulpd  %xmm1,%xmm4
addpd  %xmm2,%xmm4
mulpd  %xmm1,%xmm5
addpd  %xmm3,%xmm5
movupd %xmm4,(%rsi,%rdi,8)
movupd %xmm5,0x10(%rsi,%rdi,8)
cmp    %r8,%r9
je     1164 <fortho+0x64>
lea    (%rsi,%r8,8),%rsi
lea    (%rdx,%r8,8),%rdx
lea    (%rcx,%r8,8),%rcx
jmp    1130 <fortho+0x30>
xor    %edi,%edi
test   $0x1,%r10b
jne    1265 <fortho+0x165>
jmp    1296 <fortho+0x196>

LLVM IR (-O0):
define void @fortho(i32 %0, double* %1, double* %2, double* %3, double %4) {
%6 = alloca i32
%7 = alloca double*
%8 = alloca double*
%9 = alloca double*
%10 = alloca double
%11 = alloca double*
store i32 %0, i32* %6
store double* %1, double** %7
store double* %2, double** %8
store double* %3, double** %9
store double %4, double* %10
%12 = load double*, double** %7
%13 = load i32, i32* %6
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds double, double* %12, i64 %14
store double* %15, double** %11
br label %16
16: ; preds = %20, %5
%17 = load double*, double** %7
%18 = load double*, double** %11
%19 = icmp ult double* %17, %18
br i1 %19, label %20, label %32
20: ; preds = %16
%21 = load double*, double** %8
%22 = getelementptr inbounds double, double* %21, i32 1
store double* %22, double** %8
%23 = load double, double* %21
%24 = load double, double* %10
%25 = load double*, double** %9
%26 = getelementptr inbounds double, double* %25, i32 1
store double* %26, double** %9
%27 = load double, double* %25
%28 = fneg double %24
%29 = call double @llvm.fmuladd.f64(double %28, double %27, double %23)
%30 = load double*, double** %7
%31 = getelementptr inbounds double, double* %30, i32 1
store double* %31, double** %7
store double %29, double* %30
br label %16
32: ; preds = %16
ret void
}

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