gcc/testsuite/gfortran.dg/namelist_3.f90

   1 ! { dg-do compile }
   2 ! Check that a pointer cannot be a member of a namelist
   3 program namelist_3
   4   integer,pointer :: x
   5   allocate (x)
   6   namelist /n/ x ! { dg-error "NAMELIST attribute conflicts with POINTER attribute" "" }
   7 end program namelist_3