gcc/testsuite/gfortran.dg/namelist_63.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/45530
   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 namelist / params / curve ! { dg-error "NAMELIST object .curve. in namelist .params. at .1. cannot have POINTER components" }
  28 end program