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