Subversion Repositories openrisc_me

! { 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" } }