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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Incorrect execution result of the value of private variable after the task construct is executed
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 19.0.0(00efb343529cce025055ca8284a61b22b48924c9)/AArch64
```

`Parallel` construct contains `task` construct. A variable is declared `private` in `parallel` construct, and its value is updated in `task` construct, but the value after leaving `task` construct is incorrect.

The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

omp3_task_013_4.f90:
```fortran
program main
 integer::a=10
!$omp parallel private(a)
  a=5
!$omp task
  if (a.eq.5) then
     a=a+1
  endif
!$omp end task
!$omp taskwait
  if (a.ne.5) then
     print *,"inside  of parallel NG:a=",a
  end if
!$omp end parallel
  if (a.ne.10) then
 print *,"outside of parallel NG:a=",a
  endif
  print *,"pass"
end program main
```

```
$ export OMP_NUM_THREADS=2; flang-new -fopenmp omp3_task_013_4.f90; ./a.out
 inside of parallel NG:a= 10
 inside  of parallel NG:a= 10
 pass
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp omp3_task_013_4.f90; ./a.out
 pass
$
```

```
$ export OMP_NUM_THREADS=2; ifort -qopenmp -diag-disable=10448 omp3_task_013_4.f90; ./a.out
 pass
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0VU2P2zYT_jXUhbBAjUTbOuhgr1_n7WGTRZv2alDSSGZCkQpJedN_X1Afu2uvU7RAahiQOJpn5pkPzgjnZKsRC8L3hB8iMfizsYU5a7NqvkSlqf8syJrNf3YgbPcHWieNpqahjRK6XWl8piTd0SSPWcwIbBnDpkyzlENeVciAM84rsYVtJtZJCVBm2xyyKieQEzjudrY6r7PJ-I2vF-GTsEIpVGTNaGW083aofHjzQmpHyZp54b5efY3pjl6ElaJUSKWjNVZKWKyDcm_lRXgM-lKPgnv2CTxQoWsqvaMXoYbRzNDXwmM94955DZhy8NSfccaIxqOlCsVF6vYuJpiVujLWYuXjt5F_PiNtjFLmOWCFxdGuR-dpb01rRRf8HZcyhMOHxlhvhZ6YhwOtTNdLJbw0msARv2M1hHdq0Q3q2qHp-vQUCJ5Ykp6yuMkZSXc3tZk9TNKZB-2EnCVUao8t2gBMd4Kkh2QpJyQEMtP1dMk3XSoBWxHaYTJAA4jfYsa8zQqyoQES47eYE8hDWhbv4RfwgsA-WWSoa9ncGkRdvzF67ehZSH_rTONdZ72V2lMCOwIPBEBqJ2uk4X68RPnxw5wJAkDgQbyhRe_zemnI9xwSdkPihoAZ_MjgHxJY_L8LpBfOBfXx68jpXal_dF2vhJBR_N6HRvz0-HT6-Pvj6fP_f_3f7vAbSQ9A0v2bMbJqTI-66-ndPtzTmMBRxGbwL53240jp0nX0byvyqjbGu1D-mfG1y5X8t-H9Z4ymubD6NtNZ1VK0q1q6MCvH-5pl259HMqqLtM7TXERYJJuEbVKW8jw6FxuWlzWkZZkznrC6hM2mySq-2ZQ1F1W2jmQBDDKWJlsGHNI8TrJ1LTDZrPOEZUm1JhnDTkgVK3XpYmPbSDo3YLHlPN9ESpSo3LjbAKZYp_4nAGPThRM_RLYI8FU5tI5kTEnn3atBL70a9-M4Zgk_EL7_1KN-fCL8QH9Z5ja9nauh3V63QOi9adS9LqVpM4wTXbiv1_tgsoZ1NFhVnL3vXRincCRwbKU_D2VcmY7AMdCcH6vemi8YVtBxTIIjcBzz8FcAAAD__3cKUPg">