<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/87839>87839</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] reduction on complex data type not yet implemented
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          ye-luo
      </td>
    </tr>
</table>

<pre>
    Consider this issue as a feature request. complex data type is very common in Fortran.

Got `not yet implemented`
```
yeluo@skylake09:~> flang-new -fopenmp -O3 main.f90
error: loc("/home/yeluo/main.f90":6:9): /gpfs/jlse-fs0/users/yeluo/opt/llvm-clang/llvm-project-nightly/flang/lib/Lower/OpenMP/ReductionProcessor.cpp:135: not yet implemented: Reduction of some types is not supported
LLVM ERROR: aborting
```

reproducer
```
program omp_reduction
 implicit none
  integer i
  complex(kind=8) a, b
  a = 1.d0
 !$omp parallel do reduction(+: a)
  do i = 1, 10
    a = a + i*(1.d0, 1.d0)
  enddo
  write(*,*) a

  b = 1.d0
  !$omp parallel reduction(+: b)
  !$omp do
  do i = 1, 100
    b = b + i*(1.d0, 1.d0)
  enddo
  !$omp end parallel
  write(*,*) b
end program
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVMFu4zgM_RrmQiSwKTuNDz64zXgvHXTQw14Xsk07msqSVpKnm8t--8KO0xRFsMAAgQJZ5HuPovhkCGowzCXkj5AfN3KKJ-vLM2_1ZDeN7c7lkzVBdewxnlRAFcLEKANK7FnGyTN6_nviEHfY2tFp_gc7GSXGs2NUAX-xP88nozWoDNbWRy_NDpIjJNVl_cNGhH1ibMQzR1Qzysgmcgf7ZA3cJ-tv2Z5ZTxayJLydtXzjpABR_QviG_ZammFr-B23vXVsRofbF4GjVGbXF2s2e289iAq1bYEOQARUn-zIQPUFmeqPDCIQ1R5EVQDNNAhUD64PQPVPHXjbhwSongL78CndughUa_1r3LazpOvGefuT27g1ajhFfQaq--uxaoDqZ_vOHqh-cWy-_wCqX7mb2qis-eFtyyFYv2udA1GlIp_V3Ls0UeFHGtoegx156cfcviUjTM5ZP8cuF_L8_Od3_Pb6-vI658rG-qjMcPfmL6tn5203tezvBjlvBy9HtKP7y1-VXI4WoapVEY01vH5DZSIP7FFdP6xPCejwpkwH4ngAKlACPWFzjZEI4ojprltZESgFyuzo0EkvtWaNncWbgLnVj0uFcytXlM6iugDN4OkVC6_4EoEeUQFVQIeFbA5b_j8w2HSdvW7evYq8cFVAT8s6K_90e4jNV-n3tN8R3nwivWXcuL8W86maC2Xzu9XcWNh0H9r-t9a1QUv85SF8eSSbrhRdIQq54TJ9SEnkh6zYb06laIq-yYtC9FmRssjafi9kUWSyfUjyLqeNKimhLMmSnERySPc77kWRNQWlBWeypwSyhEep9G6etp31w2YxrPLwcBDFRsuGdVi8jmgdPJptz5fLdDbTECBLtAox3BCiinoxyEtGfoT8cZ3P_HjrElpzxwHvzOdm8ro8xegCiAqong1FxdPU7Fo7rkbxxS-A6qWO2WKWUv4LAAD__4ZlsG0">