diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-03-04 05:46:06 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-03-04 05:46:06 +0000 |
| commit | 03aac9ce62d5be02e786965125bcca50fe9f0106 (patch) | |
| tree | e8458fb7fc8dbaed1931e170597c24d1f82cfcb7 /gcc | |
| parent | 75b2dba9ae820b3e5c083830b408854a93e8eed1 (diff) | |
| download | gcc-03aac9ce62d5be02e786965125bcca50fe9f0106.zip gcc-03aac9ce62d5be02e786965125bcca50fe9f0106.tar.gz gcc-03aac9ce62d5be02e786965125bcca50fe9f0106.tar.bz2 | |
re PR fortran/60148 (strings in NAMELIST do not honor DELIM= in open statement)
2014-03-03 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60148
* gfortran.dg/namelist_84.f90: New test.
From-SVN: r208303
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_84.f90 | 28 |
2 files changed, 33 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8a6c152..3b0f810 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/namelist_84.f90 b/gcc/testsuite/gfortran.dg/namelist_84.f90 new file mode 100644 index 0000000..af139d9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_84.f90 @@ -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 |