void pa(double e[4], double t, double t2) {
  long j;
  for (j = 0; j < 6; j++) {
    e[0] = (e[0] + e[1] + e[2] - e[3]) * t;
    e[1] = (e[0] + e[1] - e[2] + e[3]) * t;
    e[2] = (e[0] - e[1] + e[2] + e[3]) * t;
    e[3] = (-e[0] + e[1] + e[2] + e[3]) / t2;
  }
  return;
}


x86 assembly (clang, -O0):
<pa>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
movsd  %xmm1,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
cmpq   $0x6,-0x20(%rbp)
jge    1210 <pa+0x110>
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x10(%rax),%xmm0
mov    -0x8(%rbp),%rax
subsd  0x18(%rax),%xmm0
mulsd  -0x10(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
subsd  0x10(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x18(%rax),%xmm0
mulsd  -0x10(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,0x8(%rax)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x8(%rbp),%rax
subsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x10(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x18(%rax),%xmm0
mulsd  -0x10(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,0x10(%rax)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x8(%rbp),%rax
addsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x10(%rax),%xmm0
mov    -0x8(%rbp),%rax
addsd  0x18(%rax),%xmm0
divsd  -0x18(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,0x18(%rax)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    111a <pa+0x1a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<pa>:
movsd  0x8(%rdi),%xmm2
movsd  0x10(%rdi),%xmm4
movsd  0x18(%rdi),%xmm6
movsd  (%rdi),%xmm3
addsd  %xmm2,%xmm3
addsd  %xmm4,%xmm3
subsd  %xmm6,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm4,%xmm2
addsd  %xmm6,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm3,%xmm5
subsd  %xmm2,%xmm5
addsd  %xmm4,%xmm5
addsd  %xmm6,%xmm5
mulsd  %xmm0,%xmm5
movapd %xmm2,%xmm4
subsd  %xmm3,%xmm4
addsd  %xmm5,%xmm4
addsd  %xmm6,%xmm4
divsd  %xmm1,%xmm4
addsd  %xmm2,%xmm3
addsd  %xmm5,%xmm3
subsd  %xmm4,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm5,%xmm2
addsd  %xmm4,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm3,%xmm6
subsd  %xmm2,%xmm6
addsd  %xmm5,%xmm6
addsd  %xmm4,%xmm6
mulsd  %xmm0,%xmm6
movapd %xmm2,%xmm5
subsd  %xmm3,%xmm5
addsd  %xmm6,%xmm5
addsd  %xmm4,%xmm5
divsd  %xmm1,%xmm5
addsd  %xmm2,%xmm3
addsd  %xmm6,%xmm3
subsd  %xmm5,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm6,%xmm2
addsd  %xmm5,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm3,%xmm7
subsd  %xmm2,%xmm7
addsd  %xmm6,%xmm7
addsd  %xmm5,%xmm7
mulsd  %xmm0,%xmm7
movapd %xmm2,%xmm4
subsd  %xmm3,%xmm4
addsd  %xmm7,%xmm4
addsd  %xmm5,%xmm4
divsd  %xmm1,%xmm4
addsd  %xmm2,%xmm3
addsd  %xmm7,%xmm3
subsd  %xmm4,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm7,%xmm2
addsd  %xmm4,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm3,%xmm5
subsd  %xmm2,%xmm5
addsd  %xmm7,%xmm5
addsd  %xmm4,%xmm5
mulsd  %xmm0,%xmm5
movapd %xmm2,%xmm6
subsd  %xmm3,%xmm6
addsd  %xmm5,%xmm6
addsd  %xmm4,%xmm6
divsd  %xmm1,%xmm6
addsd  %xmm2,%xmm3
addsd  %xmm5,%xmm3
subsd  %xmm6,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm5,%xmm2
addsd  %xmm6,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm3,%xmm4
subsd  %xmm2,%xmm4
addsd  %xmm5,%xmm4
addsd  %xmm6,%xmm4
mulsd  %xmm0,%xmm4
movapd %xmm2,%xmm5
subsd  %xmm3,%xmm5
addsd  %xmm4,%xmm5
addsd  %xmm6,%xmm5
divsd  %xmm1,%xmm5
addsd  %xmm2,%xmm3
addsd  %xmm4,%xmm3
subsd  %xmm5,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm2
subsd  %xmm4,%xmm2
addsd  %xmm5,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm2,%xmm6
subsd  %xmm3,%xmm6
movsd  %xmm3,(%rdi)
subsd  %xmm2,%xmm3
addsd  %xmm4,%xmm3
addsd  %xmm5,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm3,%xmm6
addsd  %xmm5,%xmm6
divsd  %xmm1,%xmm6
movsd  %xmm2,0x8(%rdi)
movsd  %xmm3,0x10(%rdi)
movsd  %xmm6,0x18(%rdi)
ret

LLVM IR (-O0):
define void @pa(double* %0, double %1, double %2) {
%4 = alloca double*
%5 = alloca double
%6 = alloca double
%7 = alloca i64
store double* %0, double** %4
store double %1, double* %5
store double %2, double* %6
store i64 0, i64* %7
br label %8
8: ; preds = %89, %3
%9 = load i64, i64* %7
%10 = icmp slt i64 %9, 6
br i1 %10, label %11, label %92
11: ; preds = %8
%12 = load double*, double** %4
%13 = getelementptr inbounds double, double* %12, i64 0
%14 = load double, double* %13
%15 = load double*, double** %4
%16 = getelementptr inbounds double, double* %15, i64 1
%17 = load double, double* %16
%18 = fadd double %14, %17
%19 = load double*, double** %4
%20 = getelementptr inbounds double, double* %19, i64 2
%21 = load double, double* %20
%22 = fadd double %18, %21
%23 = load double*, double** %4
%24 = getelementptr inbounds double, double* %23, i64 3
%25 = load double, double* %24
%26 = fsub double %22, %25
%27 = load double, double* %5
%28 = fmul double %26, %27
%29 = load double*, double** %4
%30 = getelementptr inbounds double, double* %29, i64 0
store double %28, double* %30
%31 = load double*, double** %4
%32 = getelementptr inbounds double, double* %31, i64 0
%33 = load double, double* %32
%34 = load double*, double** %4
%35 = getelementptr inbounds double, double* %34, i64 1
%36 = load double, double* %35
%37 = fadd double %33, %36
%38 = load double*, double** %4
%39 = getelementptr inbounds double, double* %38, i64 2
%40 = load double, double* %39
%41 = fsub double %37, %40
%42 = load double*, double** %4
%43 = getelementptr inbounds double, double* %42, i64 3
%44 = load double, double* %43
%45 = fadd double %41, %44
%46 = load double, double* %5
%47 = fmul double %45, %46
%48 = load double*, double** %4
%49 = getelementptr inbounds double, double* %48, i64 1
store double %47, double* %49
%50 = load double*, double** %4
%51 = getelementptr inbounds double, double* %50, i64 0
%52 = load double, double* %51
%53 = load double*, double** %4
%54 = getelementptr inbounds double, double* %53, i64 1
%55 = load double, double* %54
%56 = fsub double %52, %55
%57 = load double*, double** %4
%58 = getelementptr inbounds double, double* %57, i64 2
%59 = load double, double* %58
%60 = fadd double %56, %59
%61 = load double*, double** %4
%62 = getelementptr inbounds double, double* %61, i64 3
%63 = load double, double* %62
%64 = fadd double %60, %63
%65 = load double, double* %5
%66 = fmul double %64, %65
%67 = load double*, double** %4
%68 = getelementptr inbounds double, double* %67, i64 2
store double %66, double* %68
%69 = load double*, double** %4
%70 = getelementptr inbounds double, double* %69, i64 0
%71 = load double, double* %70
%72 = fneg double %71
%73 = load double*, double** %4
%74 = getelementptr inbounds double, double* %73, i64 1
%75 = load double, double* %74
%76 = fadd double %72, %75
%77 = load double*, double** %4
%78 = getelementptr inbounds double, double* %77, i64 2
%79 = load double, double* %78
%80 = fadd double %76, %79
%81 = load double*, double** %4
%82 = getelementptr inbounds double, double* %81, i64 3
%83 = load double, double* %82
%84 = fadd double %80, %83
%85 = load double, double* %6
%86 = fdiv double %84, %85
%87 = load double*, double** %4
%88 = getelementptr inbounds double, double* %87, i64 3
store double %86, double* %88
br label %89
89: ; preds = %11
%90 = load i64, i64* %7
%91 = add nsw i64 %90, 1
store i64 %91, i64* %7
br label %8
92: ; preds = %8
ret void
}

LLVM IR (-O2):
define void @pa(double* nocapture %0, double %1, double %2) {
%4 = getelementptr inbounds double, double* %0, i64 1
%5 = getelementptr inbounds double, double* %0, i64 2
%6 = getelementptr inbounds double, double* %0, i64 3
%7 = load double, double* %0
%8 = load double, double* %4
%9 = load double, double* %5
%10 = load double, double* %6
%11 = fadd double %7, %8
%12 = fadd double %11, %9
%13 = fsub double %12, %10
%14 = fmul double %13, %1
%15 = fadd double %8, %14
%16 = fsub double %15, %9
%17 = fadd double %10, %16
%18 = fmul double %17, %1
%19 = fsub double %14, %18
%20 = fadd double %9, %19
%21 = fadd double %10, %20
%22 = fmul double %21, %1
%23 = fsub double %18, %14
%24 = fadd double %23, %22
%25 = fadd double %10, %24
%26 = fdiv double %25, %2
%27 = fadd double %14, %18
%28 = fadd double %27, %22
%29 = fsub double %28, %26
%30 = fmul double %29, %1
%31 = fadd double %18, %30
%32 = fsub double %31, %22
%33 = fadd double %26, %32
%34 = fmul double %33, %1
%35 = fsub double %30, %34
%36 = fadd double %22, %35
%37 = fadd double %26, %36
%38 = fmul double %37, %1
%39 = fsub double %34, %30
%40 = fadd double %39, %38
%41 = fadd double %26, %40
%42 = fdiv double %41, %2
%43 = fadd double %30, %34
%44 = fadd double %43, %38
%45 = fsub double %44, %42
%46 = fmul double %45, %1
%47 = fadd double %34, %46
%48 = fsub double %47, %38
%49 = fadd double %42, %48
%50 = fmul double %49, %1
%51 = fsub double %46, %50
%52 = fadd double %38, %51
%53 = fadd double %42, %52
%54 = fmul double %53, %1
%55 = fsub double %50, %46
%56 = fadd double %55, %54
%57 = fadd double %42, %56
%58 = fdiv double %57, %2
%59 = fadd double %46, %50
%60 = fadd double %59, %54
%61 = fsub double %60, %58
%62 = fmul double %61, %1
%63 = fadd double %50, %62
%64 = fsub double %63, %54
%65 = fadd double %58, %64
%66 = fmul double %65, %1
%67 = fsub double %62, %66
%68 = fadd double %54, %67
%69 = fadd double %58, %68
%70 = fmul double %69, %1
%71 = fsub double %66, %62
%72 = fadd double %71, %70
%73 = fadd double %58, %72
%74 = fdiv double %73, %2
%75 = fadd double %62, %66
%76 = fadd double %75, %70
%77 = fsub double %76, %74
%78 = fmul double %77, %1
%79 = fadd double %66, %78
%80 = fsub double %79, %70
%81 = fadd double %74, %80
%82 = fmul double %81, %1
%83 = fsub double %78, %82
%84 = fadd double %70, %83
%85 = fadd double %74, %84
%86 = fmul double %85, %1
%87 = fsub double %82, %78
%88 = fadd double %87, %86
%89 = fadd double %74, %88
%90 = fdiv double %89, %2
%91 = fadd double %78, %82
%92 = fadd double %91, %86
%93 = fsub double %92, %90
%94 = fmul double %93, %1
%95 = fadd double %82, %94
%96 = fsub double %95, %86
%97 = fadd double %90, %96
%98 = fmul double %97, %1
%99 = fsub double %94, %98
%100 = fadd double %86, %99
%101 = fadd double %90, %100
%102 = fmul double %101, %1
%103 = fsub double %98, %94
%104 = fadd double %103, %102
%105 = fadd double %90, %104
%106 = fdiv double %105, %2
store double %94, double* %0
store double %98, double* %4
store double %102, double* %5
store double %106, double* %6
ret void
}