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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Semantic error not issued when constants are present in data-sharing clause
        </td>
    </tr>

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

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

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

<pre>
    Errors are not issued when constants are present in data-sharing clauses. See reproducer below.

**Reproducer**
```
program mn
  integer, parameter :: x = 2
  !$omp parallel shared(x)
  !$omp end parallel
end program
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykUs2OnDwQfJrmYg3yND87PnCYXT5unxJln6Cxe8CJsZFtspu3j2AmGyk5RmqB2lXdLquKUrKTZ-6geYamL2jLc4jdNxvJ65m8ibSEmXwxBvOj-y_GEJOgyMKHLGxKGxvxNrMXOviUyec7ukZO7LOwXhjKdEozResnoR1tiVMpXplF5DUGs2mOYmQX3kqQPcjr44t7ffmg3PsH1spHHe0awxRpEYu_90JYn3naZ17ESpEWzhwFVFeoruJdQNUL_EUFPAPWYVkPpnPsxC6WDeDlHVD9zWNvPrh39Di5i_hDYGG6yqhKUcHduX1q1KWpsC7mDrUySknN2sgb1nwZL2iUopbHdmzxXNgOJVYSpcIKL3VdPmmtiBhbwrqqGwm15IWsK537vpQhTsVhR9fKtm4LRyO7dLiKGFb2ywqIgC-AeHPkJ6iutxh8Zm92oOmL2O2bTuM2Jailsymn37uzze4IyXAMNz00z59W9v9_hqYXr7yQz1YL3gPyT9kotui6Oec17X7hADhMNs_bWOqwAA67osfvtMbwlXUGHI7bEuBwvP5nAAAA__8xeOU9">