blob: 35b8e1f029f3c910bd7751b8c51d765d2339758d [file] [log] [blame]
! { dg-do compile }
! { dg-options -std=f95 }
! Check that we don't allow types with allocatable
program main
type :: foo
integer :: k
integer, allocatable :: x(:) ! { dg-error "Fortran 2003: ALLOCATABLE" }
end type foo
type :: bar
type(foo) :: x
end type bar
type(foo) :: a
type(bar) :: b
namelist /blah/ a
end program main