! { dg-do compile } | |
! Check that we don't allow IO or NAMELISTs with types with allocatable | |
! components (PR 20541) | |
program main | |
type :: foo | |
integer, allocatable :: x(:) | |
end type foo | |
type :: bar | |
type(foo) :: x | |
end type bar | |
type(foo) :: a | |
type(bar) :: b | |
namelist /blah/ a ! { dg-error "cannot have ALLOCATABLE components" } | |
write (*, *) a ! { dg-error "cannot have ALLOCATABLE components" } | |
read (*, *) b ! { dg-error "cannot have ALLOCATABLE components" } | |
end program main |