gcc/testsuite/gfortran.dg/pr32535.f90

   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
   7 module mo
   8 implicit none
   9 real, private:: a,b,c
  10
  11 contains
  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
  24 end module mo
  25
  26 ! { dg-final { cleanup-modules "mo" } }