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

re PR fortran/33039 (Read NAMELIST: reads wrong namelist name)

Browse Source 
2007-08-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/33039
	* gfortran.dg/namelist_37.f90: New test.

From-SVN: r127333
This commit is contained in:
Jerry DeLisle 2007-08-10 12:39:46 +00:00
parent cf9293a17e
commit f419b67222
2 changed files with 35 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 @@
2007-08-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33039
* gfortran.dg/namelist_37.f90: New test.
2007-08-10 Paolo Carlini <pcarlini@suse.de>
PR c++/22256

30
gcc/testsuite/gfortran.dg/namelist_37.f90 Normal file
View File

@ -0,0 +1,30 @@
! { dg-do run }
! PR33039 Read NAMELIST: reads wrong namelist name
! Test case from PR modified by Jerry DeLisle <jvdelisle@gcc.gnu.org>
PROGRAM namelist
CHARACTER*25 CHAR
NAMELIST /CODE/ CHAR, X
NAMELIST /CODEtwo/ X
OPEN(10, status="scratch")
write(10,'(a)') "File with test NAMELIST inputs"
write(10,'(a)') " &CODVJS char='VJS-Not a proper nml name', X=-0.5/"
write(10,'(a)') " &CODEone char='CODEone input', X=-1.0 /"
write(10,'(a)') " &CODEtwo char='CODEtwo inputs', X=-2.0/"
write(10,'(a)') " &code char='Lower case name',X=-3.0/"
write(10,'(a)') " &CODE char='Desired namelist sel', X=44./"
write(10,'(a)') " &CODEx char='Should not read CODEx nml', X=-5./"
write(10,'(a)') " $CODE char='Second desired nml', X=66.0 /"
write(10,'(a)') " $CODE X=77.0, char='Reordered desired nml'/"
rewind(10)
CHAR = 'Initialize string ***'
X = -777.
READ(10, nml=CODE, END=999)
if (x.ne.-3.0) call abort
READ(10, nml=CODE, END=999)
if (x.ne.44.0) call abort
READ(10, nml=CODE, END=999)
if (x.ne.66.0) call abort
READ(10, nml=CODE, END=999)
999 if (x.ne.77.0) call abort
END PROGRAM namelist