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

    <tr>
        <th>Summary</th>
        <td>
            [flang] OpenMP default private clause does not work as expected
        </td>
    </tr>

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

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

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

<pre>
    consider the following program

PROGRAM main
INTEGER:: NEL
!$OMP PARALLEL DO  DEFAULT(PRIVATE) !PRIVATE(NEL)
   DO I=1, 4
    NEL=I
    PRINT *, I, NEL
   ENDDO
!$OMP END PARALLEL DO
END PROGRAM

$flang-new -fopenmp test.f90
$a.out
 2 4
 4 4
 3 4
 1 4

NEL variable is expected to be private, but it is not considered so. uncommenting PRIVATE(NEL) clause makes the program work.


</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxcUsGOozAM_ZpwsYqIgSkcOLALHVXqtFXV3XsAt81OICgJnd2_XwEtM5qL65oX-71nC2vltSPKWPyDxYUnBnfTJrM3eRdGtEIYob1KN_-yWndWNmTA3QguWin9Ibsr9EZfjWhZULAgn-PxdHg95W_QCtnNle3-XL6WJxbmLMxhX-4ecOQMo8PbEY75Kd_tyh0UB4Ci3OS_dmeGyfG0_Z2fS4YpMOTLv2TsgOncBGB8tGVhwRn-hGipTnPCYvtZOJ62-zMwzEfgdgwLFQAo90Vx-E6s3Bdfyc2fp-Is8qtuhtFFie666ugDVhfdU9f24Mg6_5IGC0b4enCPqbjwjZYsXDL-zOa4L3dwF0aKShFIC_S3p9pRA05DRdAbeReORlnV4EC6EdNpB8_NUQNW-zB0tW5b6ty4vu-eQq3EYAla8U52WvVjwfChzbv_lY7XZGGThqnwKOPrIA4xiePEu2VB2rwkIlpjxZHWaRSH4lI3yGkdiCjlL57MMMAo4DzmEWKY-HFKmMYiSfk6rAMesSigVkjlK3VvfW2unrR2oGyd8JfYU6IiZaeLRZwcZ4jj8ZpsxK-q4WpZFChpnf3s4KRT05nPL-ICDj11b0do6CIG5Z7-PR1oNM32jcJBfNrtDUZlN-d6O94zbhhurtLdhsqvdctwM058_Kx6o_9Q7RhuJgGW4WbS8D8AAP__o9YChA">