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