1! { dg-do compile } 2! 3! PR fortran/32905 - accepts types with ultimate POINTER components 4! 5MODULE 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 19END MODULE 20 21MODULE nml 22USE types 23 type(tp1) :: t1 24 type(tp3) :: t3 25 26 namelist /a/ t1 ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" } 27 namelist /b/ t3 ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" } 28END MODULE 29