gcc/testsuite/gfortran.dg/namelist_34.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/32905 - accepts types with ultimate POINTER components
   4 !
   5 MODULE types
   6   type :: tp3
   7     real :: x
   8     integer, pointer :: i
   9   end type
  10
  11   type :: tp2
  12     type(tp3) :: t
  13   end type
  14
  15   type :: tp1
  16     integer :: i
  17     type(tp2) :: t
  18   end type
  19 END MODULE
  20
  21 MODULE nml
  22 USE types
  23    type(tp1) :: t1
  24    type(tp3) :: t3
  25
  26    namelist /a/ t1    ! { dg-error "cannot have POINTER components" }
  27    namelist /b/ t3    ! { dg-error "cannot have POINTER components" }
  28 END MODULE
  29
  30 ! { dg-final { cleanup-modules "types nml" } }