1! { dg-do compile } 2! 3! Private types and types with private components 4! are acceptable in local namelists. 5! 6 7MODULE nml 8 type :: tp1 9 integer :: i 10 end type 11 12 type :: tp2 13 private 14 integer :: i 15 end type 16 17 private :: tp1 18contains 19 subroutine x() 20 type(tp1) :: t1 21 type(tp2) :: t2 22 23 namelist /nml1/ i ! ok, private variable 24 namelist /nml2/ t1 ! ok, private type 25 namelist /nml3/ t2 ! ok, private components 26 end subroutine 27END MODULE 28