2 ! Check that we don't allow IO or NAMELISTs with types with allocatable
3 ! components (PR 20541)
7 integer, allocatable :: x(:)
16 namelist /blah/ a ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" }
18 write (*, *) a ! { dg-error "cannot have ALLOCATABLE components" }
20 read (*, *) b ! { dg-error "cannot have ALLOCATABLE components" }