gcc/testsuite/gfortran.dg/namelist_67.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fbounds-check" }
   3
   4   character(35) :: nml_contents = "&NMLIST NML_STRING='123456789' /"
   5   character(4)  :: nml_string
   6   namelist /nmlist/ nml_string
   7   nml_string = "abcd"
   8   read(nml_contents,nml=nmlist)
   9 end program
  10 ! { dg-output "Fortran runtime warning: Namelist object 'nml_string' truncated on read." }