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

    <tr>
        <th>Summary</th>
        <td>
            [OpenRadioss] openmp implicit none scope issue
        </td>
    </tr>

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

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

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

<pre>
    In the openmp pragma default(none) if the size of the loop is passed as a function argument, the compilation fails as it can not detect n. For gcc (8.5) and icc this succeds to compile but for aocc it fails. I am providing a sample test case to replicate the issue. 
The workaround for this is to put this variable in shared as this is just a read only, this requires source code change for open source codes. gcc and icc both succeed on the compilation.
[radioss.zip](https://github.com/llvm/llvm-project/files/12366989/radioss.zip)

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUk8GOvDYMxp8mXKwiJgwMHDjsdjTSnipVfQGTeCDbkKRxMqvdp68IO-qqt_8JkM332T_byGwWRzSJ7lV01wpzWn2cHhjdezV7_Tm9OUgrgQ_ktgAh4rIhaLpjtknIwXlHQo5g7iWNzReBP96t9wEMQ0Bm0oAMCPfsVDLeAcYlb-SSkL-XZOW3YCyW2B2N5T3fJFDowPkEmhKpBK6Gm4-wKAVCDkPd7d7oNBilIK2GgbNSpBmS_9YkmHOCu4-AXqlds-jX8Aa4QYj-YbRxCyAwbsESJOLdl2nXiBSsUZioVGmYM9UgmqtoXv5aCT58_Bujz04Xh1KBKeYhp-PzgdHgbAmMA14xHiieme-ZEyBEQg3e2c-Dh2GI9E82kRjY56h2QJpAregWKlb7QH7GuC5Unixmn9aDBe3C_2dcHy2I7jWiNp65_jJBdFchhzWlwKJ9EfIm5G0xac1zrfwm5M3ax_PxW4j-nVQS8nY3lljI20m2fT8Oo5C3n6JyPLwqPbV6bEesaDr1o5TdeOnaap1aas7DoDvq1aBoQHWRlxlRtep0uZzavjKTbGTbDKdLMzTjqa1bPc7D2Hf38xnPY6_FuaENja33ymofl6oMaurPl76pLM5kuWy4lI4-jikKKfeFj1PpZs4Li3NjDSf-TyWZZMtp_BHI_Xn0JLrr8xjMtu-GSbAfAbDy4XtDqhzt9Mscy687yFL2vwEAAP__k1E2TQ">