From 836dda671ab51efe7d749166546e34c8c4296bee Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 3 Nov 2010 15:27:48 +0000 Subject: [PATCH] re PR fortran/43899 (Wrong unused-variable warning with NAMELISTs) 2010-11-03 Jerry DeLisle PR libgfortran/43899 * gfortran.dg/namelist_67.f90: New test. From-SVN: r166253 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/namelist_67.f90 | 10 ++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/namelist_67.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c9ca8a361ca..325f82a41c7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-11-03 Jerry DeLisle + + PR libgfortran/43899 + * gfortran.dg/namelist_67.f90: New test. + 2010-11-03 Jakub Jelinek PR tree-optimization/46009 diff --git a/gcc/testsuite/gfortran.dg/namelist_67.f90 b/gcc/testsuite/gfortran.dg/namelist_67.f90 new file mode 100644 index 00000000000..6adbd93a0a6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_67.f90 @@ -0,0 +1,10 @@ +! { dg-do run } +! { dg-options "-fbounds-check" } + + character(35) :: nml_contents = "&NMLIST NML_STRING='123456789' /" + character(4) :: nml_string + namelist /nmlist/ nml_string + nml_string = "abcd" + read(nml_contents,nml=nmlist) +end program +! { dg-output "Fortran runtime warning: Namelist object 'nml_string' truncated on read." }