gcc/testsuite/gfortran.dg/namelist_1.f90

   1 ! { dg-do compile }
   2 ! Check that private entities in public namelists are rejected
   3 module namelist_1
   4   public
   5   integer,private :: x
   6   namelist /n/ x ! { dg-error "cannot be member of PUBLIC namelist" "" }
   7 end module
   8
   9 ! { dg-final { cleanup-modules "namelist_1" } }