gcc/testsuite/gfortran.dg/namelist_63.f90

   1 ! { dg-do compile }
   2 ! { dg-options -std=f95 }
   3 ! PR fortran/45530, updated for PR78659
   4 !
   5 ! Contributed by david.sagan@gmail.com
   6 !
   7 program test
   8 implicit none
   9
  10 type c_struct
  11   type (g_struct), pointer :: g
  12 end type
  13
  14 type g_struct
  15   type (p_struct), pointer :: p
  16 end type
  17
  18 type p_struct
  19   type (region_struct), pointer :: r
  20 end type
  21
  22 type region_struct
  23   type (p_struct) plot
  24 end type
  25
  26 type (c_struct) curve(10)
  27 ! The following is allowed with f2003.
  28 namelist / params / curve ! { dg-error "ALLOCATABLE or POINTER components" }
  29 end program