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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP][Task] Loop iteration variable treated as firstprivate instead of private in task construct
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          kaviya2510
      </td>
    </tr>
</table>

<pre>
    According to the OpenMP specification, ***Loop iteration variables inside parallel, teams, or task generating constructs are **private** in the innermost such construct that encloses the loop.***

In the following example:

```fortran
subroutine test()
  integer :: x
  !$omp task
  do i = 1, 10
    x = 1
  end do
  !$omp end task
end subroutine

```
The loop iteration variable `i` must be treated as `private` to task. However, the current behavior treats `i` as `firstprivate`, which is incorrect. 

Here is the generated FIR which treats the variable `i` as `firstprivate` : [Godbolt link](https://godbolt.org/z/Pe3Yo9P5Y)

```mlir
  omp.private {type = firstprivate} @_QFtestEx_firstprivate_i32 : i32 copy {
  ^bb0(%arg0: !fir.ref<i32>, %arg1: !fir.ref<i32>):
    %0 = fir.load %arg0 : !fir.ref<i32>
    hlfir.assign %0 to %arg1 : i32, !fir.ref<i32>
 omp.yield(%arg1 : !fir.ref<i32>)
  }
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJx0VN9vozgQ_msmL6NFxoQkPPCQbsrtSne63mlf9qkyZgBfjY1skzb3158MtMl1WwkJmPH3zTc_PMJ71RmiEvI7yE8bMYXeuvJJnNVF8Dxlm9o2l_IopXWNMh0Gi6En_HMk88cD-pGkapUUQVkD_CsCPy7P79aOqAK52YVn4ZSoNXlUxquGcBROaE06ggKJwccP6zAI_4QdmRloOpTW-OAmGTwKRyv_6NRZBFp-UJlZkjKG3GB9QD_J_grE0IuAZKS2nvx8VFs7Jm9SgcXn-8LSWq3tc4xML2IYNUG2HoAdW57WuuCEAXb0U-3sFJQhDOQD8APwAtgRUZlAHTmM6OyIL7MReAp8a4dxznI2NRYVQnbCNOafstmI-LLa4h-ZBhv7jiAaV5L4eRXyTiuw44814Q-6gbBjCnYMh8kHrAmDIxGoQeGj67XMOza3XfinBL_ZZzqTm9vWE8rJOTIR24uziv2LDP6NeCFqlfPhyhbBz72SPao4D9I6RzIkuGj_Ro6iI9Kvg0ANVt__XjFrhOj-JY8Pw8UmIOR3v9mmtjqgVuYJ8hPwQx_C6GOLeAW86hZ_Yl0HvPoXePVA2U9bPOQ_l7beFnbQys09scOYrLEQ9nfhMtLcvP-J2J8QtuzxryqOyf3L463zUWV8lhjf0o6XSLO0O7-vazZPVS5cx-Y8eNoqlzhqIfuqMg7Z_XLv4on00xPFMsZxtoDn7FVhoq1oVvBapw_QC67X0bEsjIUk2Ne4r_oXKR8yxDpdFOnmLZ_004DrJYL96bbkm6bMmiIrxIbKdL_dH_guz9NNXxbFXuylLOq0YC2TjLOCF5IfUi73hZT5RpWc8ZzlPE1TzrM0ydqmoe1OsnZfZMW2gC2jQSidaH0e4gBslPcTlemWHQ58o0VN2s87kvNWC9NBdrQjmWEEzuPedGVEfqmnzsOWaeWDv3IFFfS8YasZmp8gv1sW6PL9I17k_ISf7MzbW3k7OHGVBhIN2havpmWDvm2_zeR0-W7OVeinOpF2AF5Fkevry-jsPyQD8GrO3gOv1gKcS_5fAAAA___SYubW">