gcc/testsuite/gfortran.dg/pr32535.f90

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