diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2009-06-09 23:29:33 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2009-06-09 23:29:33 +0300 |
| commit | a3f2b833834ad00c2a209a7e07848ff0c94bd21b (patch) | |
| tree | ca6a50e1e405c4a6457ada5b30740ce436f85f61 /gcc | |
| parent | e5871e24c1ee2843394e80ab2d536eb96b58f14f (diff) | |
| download | gcc-a3f2b833834ad00c2a209a7e07848ff0c94bd21b.zip gcc-a3f2b833834ad00c2a209a7e07848ff0c94bd21b.tar.gz gcc-a3f2b833834ad00c2a209a7e07848ff0c94bd21b.tar.bz2 | |
PR libfortran/40334 backspace regression
From-SVN: r148324
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/backspace_11.f90 | 24 |
2 files changed, 29 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1d5b50a..b910983 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-06-09 Janne Blomqvist <jb@gcc.gnu.org> + + PR libfortran/40334 + * gfortran.dg/backspace_11.f90: New. + 2009-06-09 Jason Merrill <jason@redhat.com> * g++.dg/cpp0x/defaulted10.C: New. diff --git a/gcc/testsuite/gfortran.dg/backspace_11.f90 b/gcc/testsuite/gfortran.dg/backspace_11.f90 new file mode 100644 index 0000000..e369b75 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/backspace_11.f90 @@ -0,0 +1,24 @@ +! { dg-do run } +! PR 40334 backspace regression +program backspace_11 + implicit none + character(len=5) :: str + open(10, access='sequential', status='scratch') + write(10,'(A)')'HELLO' + rewind(10) + + do + read(10,'(A)',end=1) str + enddo +1 backspace 10 + !the file pointer is now at EOF + + read(10,*,end=2) str + call abort +2 backspace 10 + !the file pointer is now at EOF + + read(10,'(A)',end=3) str + call abort +3 continue +end program backspace_11 |