[Bug fortran/88169] Rejects USE rename of namelist group

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88169

--- Comment #3 from kargl at gcc dot gnu.org ---
(In reply to kargl from comment #1)
> Fortran 95 contains
> 
> NOTE 11.8
> 
> The constraints in sections 5.5.1, 5.5.2, and 5.4 prohibit the local-name
> from appearing as a common-block-object in a COMMON statement, an
> equivalence-
> object in an EQUIVALENCE statement, or a namelist-group-name in a NAMELIST
> statement, respectively. There is no prohibition against the local-name
> appearing as a common-block-name or a namelist-object.
> 
> This appears to prohibit 
> 
>   program main
>     use foo_nml, only: bar => foo
>     namelist /bah/ bar               ! <-- Invalid

Upon further reflection, the Note seems to prohibit

     namelist /bar/x  ! Local name is namelist-group-name, adding x to group.

>     x = 42
>     write(*,nml=bar)

But, the constraints make foo inaccess from the get-go.