[flang] Missing diagnostic on named constant appearing in namelist

[DanielCChen]

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.

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Daniel Chen (DanielCChen)

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`. 
</details>

[klausler]

It's fine if the namelist is only used for writes, and we report an error when the namelist is used for a read.