31 lines
548 B
Fortran
31 lines
548 B
Fortran
! { 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" } }
|