int dftc(double *xr, double *xi, double *matrizr, double *matrizi, double *rr,
         double *ri, int n) {
  int i, j;
  double tempr, tempi;
  for (i = 0; i < n; i++, matrizr += n, matrizi += n) {
    for (j = 0, tempr = 0.0, tempi = 0.0; j < n; j++) {
      tempr += *(matrizr + j) * xr[j] - *(matrizi + j) * xi[j];
      tempi += *(matrizi + j) * xr[j] + *(matrizr + j) * xi[j];
    }
    rr[i] = tempr;
    ri[i] = tempi;
  }
}


x86 assembly (clang, -O0):
<dftc>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%eax
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
mov    %r9,-0x38(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    1262 <dftc+0x162>
movl   $0x0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x40(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    1206 <dftc+0x106>
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1149 <dftc+0x49>
movsd  -0x48(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x50(%rbp),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
mov    0x10(%rbp),%ecx
mov    -0x20(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    0x10(%rbp),%ecx
mov    -0x28(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
jmp    1126 <dftc+0x26>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<dftc>:
push   %rbx
mov    0x10(%rsp),%eax
test   %eax,%eax
jle    11a0 <dftc+0xa0>
mov    %eax,%eax
lea    0x0(,%rax,8),%r10
xor    %r11d,%r11d
movapd 0xede(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
xorpd  %xmm1,%xmm1
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
movsd  (%rcx,%rbx,8),%xmm2
movapd %xmm2,%xmm3
xorpd  %xmm0,%xmm3
movsd  (%rsi,%rbx,8),%xmm4
unpcklpd %xmm4,%xmm4
movsd  (%rdx,%rbx,8),%xmm5
unpcklpd %xmm5,%xmm2
unpcklpd %xmm3,%xmm5
mulpd  %xmm4,%xmm5
movsd  (%rdi,%rbx,8),%xmm3
unpcklpd %xmm3,%xmm3
mulpd  %xmm2,%xmm3
addpd  %xmm5,%xmm3
addpd  %xmm3,%xmm1
add    $0x1,%rbx
cmp    %rbx,%rax
jne    1140 <dftc+0x40>
movhpd %xmm1,(%r8,%r11,8)
movlpd %xmm1,(%r9,%r11,8)
add    $0x1,%r11
add    %r10,%rcx
add    %r10,%rdx
cmp    %rax,%r11
jne    1130 <dftc+0x30>
pop    %rbx
ret

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

LLVM IR (-O2):
define i32 @dftc(double* nocapture %0, double* nocapture %1, double* nocapture %2, double* nocapture %3, double* nocapture writeonly %4, double* nocapture writeonly %5, i32 %6) {
%8 = icmp sgt i32 %6, 0
br i1 %8, label %9, label %50
9: ; preds = %7
%10 = zext i32 %6 to i64
%11 = zext i32 %6 to i64
br label %12
12: ; preds = %41, %9
%13 = phi i64 [ 0, %9 ], [ %46, %41 ]
%14 = phi double* [ %2, %9 ], [ %47, %41 ]
%15 = phi double* [ %3, %9 ], [ %48, %41 ]
br label %16
16: ; preds = %12, %16
%17 = phi i64 [ 0, %12 ], [ %39, %16 ]
%18 = phi <2 x double> [ zeroinitializer, %12 ], [ %38, %16 ]
%19 = getelementptr inbounds double, double* %14, i64 %17
%20 = load double, double* %19
%21 = getelementptr inbounds double, double* %0, i64 %17
%22 = load double, double* %21
%23 = getelementptr inbounds double, double* %15, i64 %17
%24 = load double, double* %23
%25 = getelementptr inbounds double, double* %1, i64 %17
%26 = load double, double* %25
%27 = fneg double %24
%28 = insertelement <2 x double> poison, double %26, i64 0
%29 = shufflevector <2 x double> %28, <2 x double> poison, <2 x i32> zeroinitializer
%30 = insertelement <2 x double> poison, double %20, i64 0
%31 = insertelement <2 x double> %30, double %27, i64 1
%32 = fmul <2 x double> %29, %31
%33 = insertelement <2 x double> poison, double %24, i64 0
%34 = insertelement <2 x double> %33, double %20, i64 1
%35 = insertelement <2 x double> poison, double %22, i64 0
%36 = shufflevector <2 x double> %35, <2 x double> poison, <2 x i32> zeroinitializer
%37 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %34, <2 x double> %36, <2 x double> %32)
%38 = fadd <2 x double> %18, %37
%39 = add nuw nsw i64 %17, 1
%40 = icmp eq i64 %39, %11
br i1 %40, label %41, label %16
41: ; preds = %16
%42 = getelementptr inbounds double, double* %4, i64 %13
%43 = extractelement <2 x double> %38, i64 1
store double %43, double* %42
%44 = getelementptr inbounds double, double* %5, i64 %13
%45 = extractelement <2 x double> %38, i64 0
store double %45, double* %44
%46 = add nuw nsw i64 %13, 1
%47 = getelementptr inbounds double, double* %14, i64 %10
%48 = getelementptr inbounds double, double* %15, i64 %10
%49 = icmp eq i64 %46, %11
br i1 %49, label %50, label %12
50: ; preds = %41, %7
ret i32 undef
}