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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP]Incorrect execution result of LASTPRIVATE clause specified in DO construct
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 17.0.0(3ff080b53b0a7f5bccfabd11254e255669892a67)
```

`LASTPRIVATE` clause specified in `DO` construct does not seem to be valid.

omp_PARALLELDO_005i_2.f:
```fortran
      program main
      integer*4 ia, ib(50), ier
      integer*4 :: loop=50
 ia = 0
      ib = 0
!$omp parallel do lastprivate(ia)
      do ia=1,loop
         ib(ia) = ia
      enddo
!$omp end parallel do
 write(*,*) "     ia=",ia,"  It must be ",loop+1
 end
```

```
$ export OMP_NUM_THREADS=2; flang-new -fopenmp omp_PARALLELDO_005i_2.f; ./a.out
      ia= 50   It must be 51
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp omp_PARALLELDO_005i_2.f; ./a.out
      ia=          51   It must be 51
$
```

```
$ export OMP_NUM_THREADS=2; ifort -qopenmp omp_PARALLELDO_005i_2.f; ./a.out
      ia=          51   It must be 51
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzEVE2PpDYQ_TXFpdTIFJiPAwd6mFZGmkmPZid7bRkw3V6BTWwzu_n3EXRntnuUzSVR1kIgqlz1XtlPTzinjlrKEvgWeB2I2Z-MLc1Jm03_JWhM90cJKbs8rAZWfZbWKaPR9NgPQh83Wn5FiCuMspCFDCiP-57lrOFxw0TW86Zte9F0UUQ8kcR5mhZ5QSLNgIpzyw8I78HH6tPr88vD5-r1HlKG7SBmJ9FNslW9kh0qjZCyer8mjXbezq3HzkiH2nh0Uo7oDTYS38SguvC6vRmnw3P1Uj0-3j_W-wNjXB0o7CGuPnDqjfVW6HMU1zVZc7RixFGom7jSXh6lBaoSVALoDlUDlHO2TLr8Sfuj7QtuXOFgzARxzS8ngUogxDWym7LmOgYUASVmnHASVgyDHLAzOAjnJ6vehJdA-cKluG7RmYVfXEdAdyvkVW5F-KtoRVLiOi9115mP2FJ31_iX_V-tWvGBKqC79V0gEJ1BFgJABHS3ntUaf_A4zs4vV3ZOrexoG106St39s2RugpSg_DYZ63H_9Hz49benw-svL_dV_QnimiDeXgl405tJ6nHCH-piiyHQToRm9je3sYyBnOENeR69U_gv-R4vYvy3dN8Xj_4X3mrhjZvffw7poCvjrogLEcgySgsWZZRleXAqi7QRbSH6KMuThBWC9UUhs4bStMh4TDxQJTGKWUYJSyiN8jCNoiblvZCZaPo0ziFhchRqCIfhbQyNPQbKuVmWacI4DwbRyMGt3kp0nv2saiBapQdx1Vuj_SJrosWAbbl02jTz0UHCBuW8-97bKz-sVr1bi3kNfLufpH56Bl4_6NZYK1uP8ptsZ794tJVuHvxi1VdW-rc-Wu-_O2gw26E8eT-5xZVoB7Q7Kn-am7A1I9Bu4XP5bCZrvsjWA-3WwR3Qbp39zwAAAP__n2O_AQ">