diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2013-03-31 20:37:19 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2013-03-31 20:37:19 +0000 |
| commit | 5ae7dac5c9ad68ad136f64a2670466c0891da02e (patch) | |
| tree | be9171d12a3f2ebd5fb87573a9dcb1231058a025 | |
| parent | 83437e6709a57a4a8552e4a6a4b5b94b1ff34d82 (diff) | |
| download | gcc-5ae7dac5c9ad68ad136f64a2670466c0891da02e.zip gcc-5ae7dac5c9ad68ad136f64a2670466c0891da02e.tar.gz gcc-5ae7dac5c9ad68ad136f64a2670466c0891da02e.tar.bz2 | |
re PR libfortran/56786 (Namelist read fails with designators containing embedded spaces)
2013-03-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/56786
* gfortran.dg/namelist_81.f90: New test.
From-SVN: r197291
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_81.f90 | 43 |
2 files changed, 48 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a152083..48bebd0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-03-31 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/56786 + * gfortran.dg/namelist_81.f90: New test. + 2013-03-30 Thomas Koenig <tkoenig@gcc.gnu.org> * gfortran.dg/character_comparison_3.f90: Adjust for use of memcmp diff --git a/gcc/testsuite/gfortran.dg/namelist_81.f90 b/gcc/testsuite/gfortran.dg/namelist_81.f90 new file mode 100644 index 0000000..ddb100b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_81.f90 @@ -0,0 +1,43 @@ +! { dg-do run } +! PR56786 Error on embedded spaces +integer :: i(3) +namelist /nml/ i + +i = -42 +open(99,status='scratch') +write(99,'(a)') '&nml i(3 ) = 5 /' +rewind(99) +read(99,nml=nml) +close(99) +if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) call abort() + +! Shorten the file so the read hits EOF + +open(99,status='scratch') +write(99,'(a)') '&nml i(3 ) = 5 ' +rewind(99) +read(99,nml=nml, end=30) +call abort() +! Shorten some more + 30 close(99) +open(99,status='scratch') +write(99,'(a)') '&nml i(3 ) =' +rewind(99) +read(99,nml=nml, end=40) +call abort() +! Shorten some more + 40 close(99) +open(99,status='scratch') +write(99,'(a)') '&nml i(3 )' +rewind(99) +read(99,nml=nml, end=50) +call abort() +! Shorten some more + 50 close(99) +open(99,status='scratch') +write(99,'(a)') '&nml i(3 ' +rewind(99) +read(99,nml=nml, end=60) +call abort() + 60 close(99) +end |