<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=http://email.email.llvm.org/c/eJylVclu2zAQ_Rr5QtjQakcHHdw4aXIoUKRBrwEljmwWFCmQVIL8fWe02I6tFAFqGBJFzvLmzcLSiPfiQQbxbRDugnA7PLfslVvJSwVM8RIUCOYPFrhorXzlHpjUjLPaWG-5Zo0RHUka44AdpGPOkwyvPVgU6xzJO2-7ykujUU0p88bKdxYkW2a0ekfvZBEF7WhsxbbMyaZFsx6cZxVHI9x7Xh0Ii0E46AcaLtWAmA2vZ9o-aQjDtMG1aVqJpt6kP7Bacb1nXAtmWtBNG8Q3tCXYsh422DK4i4ObMNiujwu2bLitDkGyO26tGPvBpV7VeRjE-eD-Pg-Xv5ZhlGVLz0uGWMj988PT3Xb38-nx9_b5jqG_ZtLD-DdH5ceavQGz0JhXOFJDvCAl0UuDIYOmB5p1HcYmHW9b4HZ1njlMFnLLzzhAsiy0Fmmt4EwdYeBJCRfkjBQgI3t3RDY8xzTj66UZSR9_lChZSY_Rarg40h72YCnDraGPfilkA9phMSAKjBQdUcAUM9JGJCd3ulOKTo8Y4iiIU8T6sRIpDFSZpObccssboFIcXUhdG_SRzmsMMrzzFlBofU7AJFoZ7TGDbu7MdaU1nZcaiUWYPUB9Be8LxM1EQkvt0aDUJ8b0v9V6GTkvw7EPK-rUicQB6WdgsZkkUoJpuP3EKf4GO5KMJLtP_AI2mzDzZ5hWCnFLAymOCWGHFMYfhcnANdG9CB1dF-plAUenCqbpNEgiw33HTWWI3-eWJ4WZnM25jj76Pn9iM-6xJhmNgY-BjWCiLzTYbGEiX6eyS2d6h5pBKVBMQM07RcV0bKQcC7t9p9qab6ma6oQ7ZyqJ8uIkhpo0m46DGBXzizz2WjOJVO667K-0W-7Ypxa0kPVllJSJKdLLDF2TP8PnQhSJyJOcL3AQHIwthPtOt9uis6o4eN-6fmrd43-PY7MrVzhF8UOp1-m1REd_oMIo7vuBi9P0PkuSTbw4FGFSi3XOU6iyLFtvsroK66xK65tsfbMJY1j0l64rguwbBqzhbZjZFHy2W_w_AlnEYRyHUZzEYRKl-WqTC-BpWUEYiRIgCtKwv1tXZGdl7H5hi95k2eG1kIZKOu9Oh5gcudcAPWBE6KVXUNCtOt6x453TXzFY41OrLfrtogf1Fx3_fD4>53372</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            flan openmp issue with use, only
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
    Hi,

A variable labeled threadprivate in a fortran module loose his state after a use instruction follow by : only, in user module. A simple test case attached to this email
 
This test case do not compile with flang and openmp(fland -fopenmp -…… -march=….  Main.f90)
F90-S-0155-tab is not THREADPRIVATE (main.f90: 7)
If we remove : only in mod1_m then the issue disappear.

below a test case to reproduce the issue (to be compile with fopenmp flags)

module mod_m
        implicit none
        integer, pointer, dimension(:) :: tab=>null()
!$omp threadprivate(tab)
        integer, parameter :: info=4
        integer:: autre=6

        contains

        subroutine create(n)
                implicit none
                integer, intent(in) ::n
                integer::i
                allocate (tab(n))
                do i=1,n
                   tab(i)=i
                end do
                print*,"alloue"
        end subroutine create
end module mod_m

module mod1_m
  use mod_m, only : tab, create

  implicit none

end module mod1_m



program main
        use mod1_m
        implicit none


        call create(4)
!$omp parallel default(private) copyin(tab)
        if (associated(tab)) then
                print*,"associe"
        else
                print*,"pas associe"
        endif
!$omp end parallel

end program main



 
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyNVcmO2zgQ_Rr5QtjQZjs66OCJuyc5DDDINOYaUFLJ5oAiBZLqRv_9vJK8ta0OYhgUJdby6tXCyjbv5TcVpV-jeB_Fu2ndiVfplKw0CS0r0tSIcHQkm96pVxlIKCOkaK0LThrR2WZgSWs9iaPywgeWkW0gB7HBs7wPbqiDsgZqWts3Ub2LKNsJa_Q7vLNFCLqTsZXYCa-6HmYD-SBqCSMyBFkfGYsFHPihTio9IRbT44U_XzUaK4zF3na9gqk3FY6i1dIchDSNsD2Zro_SL_ypEct2-iCW0VMafYmj3eayEctOuvoYZfvLp5UQf0llVm0RR2kxuX8u4uU_yzhZr5dBVgJY2P3Ltx9Pu_3fP77_u3t5EvDXnfUQ__ai_L0VbyQcdfaVLtQwL6Ak-dkhZDK8wKwfEJvysu9JutVt5pAscCtvOABZjnoHWmu6UQcMnFR0R86JAjBy8Bdk03pKMx4_uxPppx8nStUqIFpDd0cm0IEcZ7i3_DJuG9WR8SgGoECkcMQBc8ygjUnOnsygNZ9eMKRJlObA-rESOQyonKXm3EonO-JSPLlQprXwkc9rTDJyCI4gtLkl4CxaWxOQQT935ofK2SEoA2IBcwRoHuD9BnEzkfDWBBhU5sqY-bXaKKPmZST6sOZOPZM4If0MLJpJgRKk4esnTvGb7Cg2ku0_8UtotsbOnyGtHOKOB1KaMsIBFKYfhdnAI9GjCB89Fup9ASfXCubpNEmC4bHjzmWI91vLZ4WZnM25Tj76vl3RjAfUpOAx8DGwE5jkNxpstjDB17Xs8pne4WbQmrRoqJWD5mK6NFKBwu7fubbmW6rlOpHe21pBvrmKQZNn02UQQ7G4y-OoNZNI7R_L_kG7l158asE0qr2PkjNxjvQ-Q4_kz_C5aMqsKbJCLoIKmkq-IE7XxWl8jtMS6TpXzWJwujyG0Ptxnj3jf4DIUK0wX_Gi9ev5sQSE_6hGfM-jLczZ53WWbdPFsaRNTs12G1O7SWUeU7ItNutMUp1vtlQ368V4HfsyWv8BKgy9TXCYlvV-oco0TtM4SbM0zpK8WG2LhmRe1RQnTUWURDDJd-aKcaysOyxcOUKqBoz7PNbKB389BOnqYIhGd7CPqXi0rmz8n3zVL0bX5Qj9fy5cZyQ">