! { dg-do compile } ! ! PR fortran/32905 - accepts types with ultimate POINTER components ! MODULE types type :: tp3 real :: x integer, pointer :: i end type type :: tp2 type(tp3) :: t end type type :: tp1 integer :: i type(tp2) :: t end type END MODULE MODULE nml USE types type(tp1) :: t1 type(tp3) :: t3 namelist /a/ t1 ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" } namelist /b/ t3 ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" } END MODULE