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 "cannot have ALLOCATABLE components" }
18 write (*, *) a ! { dg-error "cannot have ALLOCATABLE components" }
20 read (*, *) b ! { dg-error "cannot have ALLOCATABLE components" }