Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

!

! PR32535: namelist with private items contained in sub-sub-procedure of a module rejected

!

! Contributed by Janus Weil 

module mo

implicit none

real, private:: a,b,c

contains

  subroutine sub

    implicit none

    namelist /nl1/ a,b,c

    contains

    subroutine subsub

      implicit none

      namelist /nl2/ a,b,c

    end subroutine subsub

  end subroutine sub

end module mo

! { dg-final { cleanup-modules "mo" } }