OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/43899 (Wrong unused-variable warning with NAMELISTs)

Browse Source 
2010-11-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/43899
	* gfortran.dg/namelist_67.f90: New test.

From-SVN: r166253
This commit is contained in:
Jerry DeLisle 2010-11-03 15:27:48 +00:00
parent fc5f5bb770
commit 836dda671a
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/43899
* gfortran.dg/namelist_67.f90: New test.
2010-11-03 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/46009

10
gcc/testsuite/gfortran.dg/namelist_67.f90 Normal file
View File

@ -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." }