1! { dg-do compile }
2!
3! PR32535: namelist with private items contained in sub-sub-procedure of a module rejected
4!
5! Contributed by Janus Weil <jaydub66@gmail.com>
6
7module mo
8implicit none
9real, private:: a,b,c
10
11contains
12
13  subroutine sub
14    implicit none
15    namelist /nl1/ a,b,c
16
17    contains
18
19    subroutine subsub
20      implicit none
21      namelist /nl2/ a,b,c
22    end subroutine subsub
23  end subroutine sub
24end module mo
25