int main(void) {
  int i;
  __complex__ double result, array[1000];
  int lresult;
#pragma acc parallel
#pragma acc loop gang worker vector reduction(+ : result)
  for (i = 0; i < 1000; i++)
    result += array[i];
#pragma acc parallel
#pragma acc loop gang worker vector reduction(* : result)
  for (i = 0; i < 1000; i++)
    result *= array[i];
#pragma acc parallel
#pragma acc loop gang worker vector reduction(&& : lresult)
  for (i = 0; i < 1000; i++)
    lresult = lresult && (__real__(result) > __real__(array[i]));
#pragma acc parallel
#pragma acc loop gang worker vector reduction(|| : lresult)
  for (i = 0; i < 1000; i++)
    lresult = lresult || (__real__(result) > __real__(array[i]));
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x3ef0,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x8(%rbp)
cmpl   $0x3e8,-0x8(%rbp)
jge    116b <main+0x6b>
movslq -0x8(%rbp),%rcx
lea    -0x3ea0(%rbp),%rax
shl    $0x4,%rcx
add    %rcx,%rax
movsd  (%rax),%xmm3
movsd  0x8(%rax),%xmm2
movsd  -0x18(%rbp),%xmm1
movsd  -0x10(%rbp),%xmm0
addsd  %xmm3,%xmm1
addsd  %xmm2,%xmm0
movsd  %xmm1,-0x18(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1119 <main+0x19>
movl   $0x0,-0x8(%rbp)
cmpl   $0x3e8,-0x8(%rbp)
jge    1293 <main+0x193>
movslq -0x8(%rbp),%rcx
lea    -0x3ea0(%rbp),%rax
shl    $0x4,%rcx
add    %rcx,%rax
movsd  (%rax),%xmm4
movsd  %xmm4,-0x3ee8(%rbp)
ff
movsd  0x8(%rax),%xmm5
movsd  %xmm5,-0x3ee0(%rbp)
ff
movsd  -0x18(%rbp),%xmm1
movsd  %xmm1,-0x3ed8(%rbp)
ff
movsd  -0x10(%rbp),%xmm2
movsd  %xmm2,-0x3ed0(%rbp)
ff
movaps %xmm1,%xmm0
mulsd  %xmm4,%xmm0
movaps %xmm2,%xmm3
mulsd  %xmm5,%xmm3
mulsd  %xmm5,%xmm1
mulsd  %xmm4,%xmm2
subsd  %xmm3,%xmm0
movsd  %xmm0,-0x3ec8(%rbp)
ff
addsd  %xmm2,%xmm1
movsd  %xmm1,-0x3ec0(%rbp)
ff
ucomisd %xmm0,%xmm0
movsd  %xmm0,-0x3eb8(%rbp)
ff
movsd  %xmm1,-0x3eb0(%rbp)
ff
jnp    126b <main+0x16b>
movsd  -0x3ec0(%rbp),%xmm1
ff
movsd  -0x3ec8(%rbp),%xmm0
ff
ucomisd %xmm1,%xmm1
movsd  %xmm0,-0x3eb8(%rbp)
ff
movsd  %xmm1,-0x3eb0(%rbp)
ff
jnp    126b <main+0x16b>
movsd  -0x3ee0(%rbp),%xmm3
ff
movsd  -0x3ee8(%rbp),%xmm2
ff
movsd  -0x3ed0(%rbp),%xmm1
ff
movsd  -0x3ed8(%rbp),%xmm0
ff
call   1380 <__muldc3>
movsd  %xmm0,-0x3eb8(%rbp)
ff
movsd  %xmm1,-0x3eb0(%rbp)
ff
movsd  -0x3eb8(%rbp),%xmm1
ff
movsd  -0x3eb0(%rbp),%xmm0
ff
movsd  %xmm1,-0x18(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1172 <main+0x72>
movl   $0x0,-0x8(%rbp)
cmpl   $0x3e8,-0x8(%rbp)
jge    12ff <main+0x1ff>
xor    %eax,%eax
cmpl   $0x0,-0x3ea4(%rbp)
mov    %al,-0x3ee9(%rbp)
je     12e0 <main+0x1e0>
movsd  -0x18(%rbp),%xmm0
movslq -0x8(%rbp),%rcx
lea    -0x3ea0(%rbp),%rax
shl    $0x4,%rcx
add    %rcx,%rax
ucomisd (%rax),%xmm0
seta   %al
mov    %al,-0x3ee9(%rbp)
mov    -0x3ee9(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x3ea4(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    129a <main+0x19a>
movl   $0x0,-0x8(%rbp)
cmpl   $0x3e8,-0x8(%rbp)
jge    136b <main+0x26b>
mov    $0x1,%al
cmpl   $0x0,-0x3ea4(%rbp)
mov    %al,-0x3eea(%rbp)
jne    134c <main+0x24c>
movsd  -0x18(%rbp),%xmm0
movslq -0x8(%rbp),%rcx
lea    -0x3ea0(%rbp),%rax
shl    $0x4,%rcx
add    %rcx,%rax
ucomisd (%rax),%xmm0
seta   %al
mov    %al,-0x3eea(%rbp)
mov    -0x3eea(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x3ea4(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1306 <main+0x206>
xor    %eax,%eax
add    $0x3ef0,%rsp
pop    %rbp
ret
cs nopw 0x0(%rax,%rax,1)

x86 assembly (clang, -O2):
<main>:
push   %rbx
sub    $0x3e80,%rsp
mov    $0x40,%eax
nopl   (%rax)
addpd  -0x40(%rsp,%rax,1),%xmm0
addpd  -0x30(%rsp,%rax,1),%xmm0
addpd  -0x20(%rsp,%rax,1),%xmm0
addpd  -0x10(%rsp,%rax,1),%xmm0
addpd  (%rsp,%rax,1),%xmm0
add    $0x50,%rax
cmp    $0x3ec0,%rax
jne    1110 <main+0x10>
movapd %xmm0,%xmm5
unpckhpd %xmm0,%xmm5
mov    $0x8,%ebx
movapd %xmm0,%xmm4
movapd %xmm5,%xmm1
xchg   %ax,%ax
movsd  -0x8(%rsp,%rbx,1),%xmm2
movsd  (%rsp,%rbx,1),%xmm3
mulsd  %xmm2,%xmm4
movapd %xmm5,%xmm6
mulsd  %xmm3,%xmm6
subsd  %xmm6,%xmm4
movapd %xmm0,%xmm6
mulsd  %xmm3,%xmm6
mulsd  %xmm2,%xmm1
addsd  %xmm6,%xmm1
ucomisd %xmm4,%xmm4
jp     1198 <main+0x98>
add    $0x10,%rbx
movapd %xmm4,%xmm0
movapd %xmm1,%xmm5
cmp    $0x3e88,%rbx
jne    1150 <main+0x50>
jmp    11ad <main+0xad>
ucomisd %xmm1,%xmm1
jnp    1181 <main+0x81>
movapd %xmm5,%xmm1
call   11c0 <__muldc3>
movapd %xmm0,%xmm4
jmp    1181 <main+0x81>
xor    %eax,%eax
add    $0x3e80,%rsp
pop    %rbx
ret
nopl   0x0(%rax,%rax,1)

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

LLVM IR (-O2):
define i32 @main() {
%1 = alloca [1000 x { double, double }]
%2 = bitcast [1000 x { double, double }]* %1 to i8*
br label %3
3: ; preds = %3, %0
%4 = phi i64 [ 0, %0 ], [ %30, %3 ]
%5 = phi <2 x double> [ undef, %0 ], [ %29, %3 ]
%6 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %4, i32 0
%7 = bitcast double* %6 to <2 x double>*
%8 = load <2 x double>, <2 x double>* %7
%9 = fadd <2 x double> %5, %8
%10 = add nuw nsw i64 %4, 1
%11 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %10, i32 0
%12 = bitcast double* %11 to <2 x double>*
%13 = load <2 x double>, <2 x double>* %12
%14 = fadd <2 x double> %9, %13
%15 = add nuw nsw i64 %4, 2
%16 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %15, i32 0
%17 = bitcast double* %16 to <2 x double>*
%18 = load <2 x double>, <2 x double>* %17
%19 = fadd <2 x double> %14, %18
%20 = add nuw nsw i64 %4, 3
%21 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %20, i32 0
%22 = bitcast double* %21 to <2 x double>*
%23 = load <2 x double>, <2 x double>* %22
%24 = fadd <2 x double> %19, %23
%25 = add nuw nsw i64 %4, 4
%26 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %25, i32 0
%27 = bitcast double* %26 to <2 x double>*
%28 = load <2 x double>, <2 x double>* %27
%29 = fadd <2 x double> %24, %28
%30 = add nuw nsw i64 %4, 5
%31 = icmp eq i64 %30, 1000
br i1 %31, label %32, label %3
32: ; preds = %3
%33 = extractelement <2 x double> %29, i64 1
%34 = extractelement <2 x double> %29, i64 0
br label %35
35: ; preds = %32, %56
%36 = phi i64 [ %59, %56 ], [ 0, %32 ]
%37 = phi double [ %57, %56 ], [ %34, %32 ]
%38 = phi double [ %58, %56 ], [ %33, %32 ]
%39 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %36, i32 0
%40 = load double, double* %39
%41 = getelementptr inbounds [1000 x { double, double }], [1000 x { double, double }]* %1, i64 0, i64 %36, i32 1
%42 = load double, double* %41
%43 = fmul double %37, %40
%44 = fmul double %38, %42
%45 = fmul double %37, %42
%46 = fmul double %38, %40
%47 = fsub double %43, %44
%48 = fadd double %46, %45
%49 = fcmp uno double %47, 0.000000e+00
br i1 %49, label %50, label %56
50: ; preds = %35
%51 = fcmp uno double %48, 0.000000e+00
br i1 %51, label %52, label %56
52: ; preds = %50
%53 = tail call { double, double } @__muldc3(double %37, double %38, double %40, double %42)
%54 = extractvalue { double, double } %53, 0
%55 = extractvalue { double, double } %53, 1
br label %56
56: ; preds = %52, %50, %35
%57 = phi double [ %47, %35 ], [ %47, %50 ], [ %54, %52 ]
%58 = phi double [ %48, %35 ], [ %48, %50 ], [ %55, %52 ]
%59 = add nuw nsw i64 %36, 1
%60 = icmp eq i64 %59, 1000
br i1 %60, label %61, label %35
61: ; preds = %56
ret i32 0
}