1! { dg-do compile } 2! 3! PR fortran/45530 4! 5! Contributed by david.sagan@gmail.com 6! 7program test 8implicit none 9 10type c_struct 11 type (g_struct), pointer :: g 12end type 13 14type g_struct 15 type (p_struct), pointer :: p 16end type 17 18type p_struct 19 type (region_struct), pointer :: r 20end type 21 22type region_struct 23 type (p_struct) plot 24end type 25 26type (c_struct) curve(10) 27namelist / params / curve ! { dg-error "ALLOCATABLE or POINTER components and thus requires a defined input/output" } 28end program 29