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