[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 #8 from kargl at gcc dot gnu.org ---
As expected, the following invalid code via C8102 in F2018
compiles and executes

module foo_nml
   implicit none
   real :: x
   namelist /foo/ x
end module

program main
   use foo_nml
   implicit none
   integer i
   namelist /foo/ i   ! Invalid via F18:C8102
   i = 42
   x = 42
   write(*,nml=foo)
end program

%  gfcx -o z a.f90 && ./z
&FOO
 X=  42.0000000    ,
 I=42         ,
 /