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) 9end program 10! { dg-output "Fortran runtime warning: Namelist object 'nml_string' truncated on read." } 11