gcc/testsuite/gfortran.dg/namelist_34.f90

   1 ! { dg-do compile }
   2 ! { dg-options -std=f95 }
   3 ! PR fortran/32905 - accepts types with ultimate POINTER components
   4 ! updated for PR78659
   5 MODULE types
   6   type :: tp3
   7     real :: x
   8     integer, pointer :: i
   9   end type
  10
  11   type :: tp2
  12     type(tp3) :: t
  13   end type
  14
  15   type :: tp1
  16     integer :: i
  17     type(tp2) :: t
  18   end type
  19 END MODULE
  20
  21 MODULE nml
  22 USE types
  23    type(tp1) :: t1
  24    type(tp3) :: t3
  25 ! The following are allowed under f2003.
  26    namelist /a/ t1    ! { dg-error "with ALLOCATABLE or POINTER components" }
  27    namelist /b/ t3    ! { dg-error "with ALLOCATABLE or POINTER components" }
  28 END MODULE