<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/155273>155273</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
[flang] Failure with do_concurrent: redefinition of symbol named 'add_reduction_f64.omp'
</td>
</tr>
<tr>
<th>Labels</th>
<td>
flang:openmp
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
ergawy
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
vzakhari
</td>
</tr>
</table>
<pre>
The issue appears in 800.pot3d_s with `-fdo-concurrent-to-openmp=host`:
```
flang -c -o pot3d.fppized.o -O1 -fopenmp -fdo-concurrent-to-openmp=host pot3d.fppized.f90
warning: Mapping `do concurrent` to OpenMP is still experimental.
error: loc("pot3d.fppized.f90":6723:7): redefinition of symbol named 'add_reduction_f64.omp'
error: verification of lowering to FIR failed
```
Simple reprorucer:
```
subroutine test1(x,s,N)
real :: x(N), s
integer :: N
do concurrent(i=1:N) reduce(+:s)
s=s+x(i)
end do
end subroutine test1
subroutine test2(x,s,N)
real :: x(N), s
integer :: N
do concurrent(i=1:N) reduce(+:s)
s=s+x(i)
end do
end subroutine test2
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy0VF2L7DYM_TXKi0hw5Ekm85CH7A4Dfbj3lrbviydWEreOHWxnP-6vL8nscre70FJKIRBj6xzpHCGpGM3omFuo7oCIw6ieXoAIqnOm1jT50D5-V39MKpjs6vVL-9vEaGJcGdWysAoRjcNGiGLxSeqHiE8mTQi1yAft8967fg2BXcqTz_3Cbl5AnicfE9QCZAei2w63T3SDVW7EvMfc405YDMtivrMuPObfSsyHGwf-E_sH9HDa2J9UcMaNIDv8opbFuHErVHv8QQS1wOTx28Luy89oIsZkrEV-XjiYmV1StgDRcQg-bDzW90ANEH3ORwSyq48kQXZHoNMWHljzYJxJxjv0A8aX-eotOjWzRqCj0vohsF77LeBhqA-Fnxeg4_uUjxzMYHr1xmH9E4dNS_J4-ekXHJSxrD8YC6L71cyLZQy8BB_WnsNn--N6DX5NxjEmjqkEap6B7iPQ_ddNgegQAyuLG1R2-AzU7A90j3F_NS7xyOEt4Ot--VeHqTEgzyXIboPiLpd3E-9AdvEtDyJGkOcIdPe8Y2737DRqv_nhNH6q95ME-tcS_ncFfyuB3nck063UJ3lSGbflsarLQ0mNzKZ2qAc9qFpr2ahB1FofDyWXlRi0VLpvTplpSVAlGqrKoyhJFvJ6oF5q3VOpBR0kHATPytjC2se58GHM9qFuy6qio8ysurKNr0thH0qQ3euA3ZZDaDdkfl3HCAdhTUzxB1cyye4r5QatznhRxq6Bb9tB-4d3bv6HscjWYNsppSVu3aIL0GU0aVqvRe9noMtW0OsvX4L_nfsEdNmVRqDLq9jHlv4MAAD__5F_jug">