! { dg-do compile } | |
! | |
! PR fortran/32905 - accepts types with ultimate POINTER components | |
! | |
MODULE types | |
type :: tp3 | |
real :: x | |
integer, pointer :: i | |
end type | |
type :: tp2 | |
type(tp3) :: t | |
end type | |
type :: tp1 | |
integer :: i | |
type(tp2) :: t | |
end type | |
END MODULE | |
MODULE nml | |
USE types | |
type(tp1) :: t1 | |
type(tp3) :: t3 | |
namelist /a/ t1 ! { dg-error "cannot have POINTER components" } | |
namelist /b/ t3 ! { dg-error "cannot have POINTER components" } | |
END MODULE | |
! { dg-final { cleanup-modules "types nml" } } |