gcc/testsuite/gfortran.dg/namelist_36.f90

   1 ! { dg-compile }
   2 !
   3 ! Private types and types with private components
   4 ! are acceptable in local namelists.
   5 !
   6
   7 MODULE nml
   8   type :: tp1
   9     integer :: i
  10   end type
  11
  12   type :: tp2
  13     private
  14     integer :: i
  15   end type
  16
  17   private :: tp1
  18 contains
  19   subroutine x()
  20    type(tp1) :: t1
  21    type(tp2) :: t2
  22
  23     namelist /nml1/ i        ! ok, private variable
  24     namelist /nml2/ t1       ! ok, private type
  25     namelist /nml3/ t2       ! ok, private components
  26   end subroutine
  27 END MODULE
  28
  29 ! { dg-final { cleanup-modules "nml" } }