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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Missing diagnostic on named constant appearing in namelist
        </td>
    </tr>

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

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

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

<pre>
    Consider the following code:
```
module m
   type base
      integer :: i
   end type

end module

program parameter001d
   use m

   integer :: stat
 character(200) :: msg = ''

   type(base), parameter :: b3 = base(111)
 namelist /nml/ b3

end program
```

`b3` is a named constant, it shall not appear in a `namelist`. 
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJxcUl2PpCAQ_DX40tkJNqPigw_eTHy7H4HSKhcEA7iX_fcXdOY22YTEVLqq-sNSMZrFEXWs-sWqZ6GOtPrQPZUzZB-PlVwxev3VPbyLRlOAtBLM3lr_17gFJq-JiZ7xntX89Xi_eX1Ygo3xHgDS104wqkgXBADjEi0UICtFD-YqkNMnN5vxPqPL58J78EtQG-wqqI0SBc5LfQmPePW60A_zmFTKhWlVQU2JAkOJnDNs34wtLsDEExg2-b19zlFQnoNjy_Dx3fqtHMUpvCiyLMtM5D04tZE1MQHDwW2W4QCj-F7rtcqPo11wFKzmYCKo00XD5F1MyqU8gEkQV2UtOJ9A7TupAMaBAlbzd09W8xsUuhO6Fa0qqCube13fUdZNsXZ6mqvmzuVYyUmgrPAu25qwqSYudF3JwnTIseIVb0op7tjcVDXrVs56LptGTuXI7pw2ZezN2s_t5sNSmBgP6kohW9EUVo1k45kmxNkqtzDRz8G7RE4zxJyx0GXtx3gskd15Hjp-uyWT7JnGS1w94beJMWdNG7U4H5OZwLsf13ldI9OM-3__4gi2W1PaY_5hODAcFpPWY7xNfmM45Kavz8ce_B-aEsPh3CcyHF4rfXb4LwAA__-oovUb">