Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

!

!

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

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

!

!

! Contributed by Janus Weil 

! Contributed by Janus Weil 

module mo

module mo

implicit none

implicit none

real, private:: a,b,c

real, private:: a,b,c

contains

contains

  subroutine sub

  subroutine sub

    implicit none

    implicit none

    namelist /nl1/ a,b,c

    namelist /nl1/ a,b,c

    contains

    contains

    subroutine subsub

    subroutine subsub

      implicit none

      implicit none

      namelist /nl2/ a,b,c

      namelist /nl2/ a,b,c

    end subroutine subsub

    end subroutine subsub

  end subroutine sub

  end subroutine sub

end module mo

end module mo

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

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