gcc/testsuite/gfortran.dg/namelist_75.f90

   1 ! { dg-do compile }
   2 !
   3 ! Tests a write-after-free memory error fix in gfc_undo_symbols
   4
   5 program test_nml
   6
   7   namelist /foo/ bar, baz
   8   namelist /foo/ wrong, ,  ! { dg-error "Syntax error in NAMELIST" }
   9
  10 end program test_nml