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

re PR fortran/60148 (strings in NAMELIST do not honor DELIM= in open statement)

Browse Source 
2014-03-03  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/60148
	* gfortran.dg/namelist_84.f90: New test.

From-SVN: r208303
This commit is contained in:
Jerry DeLisle 2014-03-04 05:46:06 +00:00
parent 75b2dba9ae
commit 03aac9ce62
2 changed files with 33 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 @@
2014-03-03 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60148
* gfortran.dg/namelist_84.f90: New test.
2014-03-03 Kirill Yukhin <kirill.yukhin@intel.com>
* gcc.target/i386/avx512er-vexp2ps-2.c: Decrease exponent

28
gcc/testsuite/gfortran.dg/namelist_84.f90 Normal file
View File

@ -0,0 +1,28 @@
! { dg-do run }
program namelist_delim_none
implicit none
character(512) :: internal_unit
character(5), dimension(5) :: mystring
real, dimension(4) :: somenum
integer :: i
namelist /mylist/ mystring, somenum
mystring(1)='mon'
mystring(2)='tue'
mystring(3)='wed'
mystring(4)='thu'
mystring(5)='fri'
somenum = reshape(source = (/ 2, 3, 5, 7 /), shape=shape(somenum))
open(unit=10,status='scratch',delim='none')
write(10, mylist)
rewind(10)
mystring = "xxxxx"
read(10,mylist)
if (any(mystring /= (/ 'mon', 'tue', 'wed', 'thu', 'fri' /))) call abort
rewind(10)
do i=1,5
read(10,'(a)') internal_unit
if (scan(internal_unit,"""'").ne.0) call abort
end do
close(10)
end program