3 ! PR fortran/32876 - accepts private items in public NAMELISTs
5 ! USE-associated types with private components may
6 ! not be used in namelists -- anywhere.
37 namelist /a/ t1 ! { dg-error "use-associated PRIVATE components" }
38 namelist /b/ t4 ! { dg-error "use-associated PRIVATE components" }
41 namelist /c/ i ! { dg-error "was declared PRIVATE and cannot be member of PUBLIC namelist" }
48 namelist /nml2/ y2 ! { dg-error "has use-associated PRIVATE components " }
49 namelist /nml3/ y3 ! { dg-error "has use-associated PRIVATE components " }
58 TYPE(tp4) :: t ! nested private components
62 namelist /nml/ t5 ! { dg-error "has use-associated PRIVATE components" }
66 namelist /nml2/ t5 ! { dg-error "has use-associated PRIVATE components" }