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

re PR fortran/69668 (Error reading namelist opened with DELIM='NONE')

Browse Source 
2016-02-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/69668
	* gfortran.dg/namelist_88.f90: New test.

From-SVN: r233388
This commit is contained in:
Jerry DeLisle 2016-02-12 21:02:02 +00:00
parent 955ca6dc77
commit 7f4cc3ced8
2 changed files with 34 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 @@
2016-02-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/69668
* gfortran.dg/namelist_88.f90: New test.
2016-02-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/69668

29
gcc/testsuite/gfortran.dg/namelist_88.f90 Normal file
View File

@ -0,0 +1,29 @@
! { dg-do run }
! PR69668 Error reading namelist opened with DELIM='NONE'
program namelist
implicit none
integer,parameter :: tabsz=10
integer :: i
character(len=10),dimension(tabsz) :: tab
namelist/tab_nml/tab
tab(:)='invalid'
! Create a temporary test namelist file
open(unit=23,status='scratch',delim='none')
write(23,*) "&tab_nml"
write(23,*) "tab(1)='in1',"
write(23,*) "tab(2)='in2'"
write(23,*) "/"
rewind(23)
read(unit=23,nml=tab_nml)
close(unit=23)
if (tab(1).ne.'in1') call abort
if (tab(2).ne.'in2') call abort
if (any(tab(3:tabsz).ne.'invalid')) call abort
end program namelist