diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-11 03:06:01 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-11 03:06:01 +0000 |
| commit | 85e053e9726e3639c11213295645e979e8dfff61 (patch) | |
| tree | fded53bea1594b8a9d463348dcfcb1daac0fff66 | |
| parent | 00af1407c2561e573c7a1f1f47b9b0a0dc141e0d (diff) | |
| download | gcc-85e053e9726e3639c11213295645e979e8dfff61.zip gcc-85e053e9726e3639c11213295645e979e8dfff61.tar.gz gcc-85e053e9726e3639c11213295645e979e8dfff61.tar.bz2 | |
re PR fortran/32235 (incorrectly position text file after backspace)
2007-06-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/32235
* gfortran.dg/backspace_9.f: New test.
From-SVN: r125611
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/backspace_9.f | 55 |
2 files changed, 60 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c9bdc4a..32d88ad 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-06-10 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/32235 + * gfortran.dg/backspace_9.f: New test. + 2007-06-10 Zdenek Dvorak <dvorakz@suse.cz> * gcc.dg/tree-ssa/prefetch-7.c: New test. diff --git a/gcc/testsuite/gfortran.dg/backspace_9.f b/gcc/testsuite/gfortran.dg/backspace_9.f new file mode 100644 index 0000000..fe62ea5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/backspace_9.f @@ -0,0 +1,55 @@ +! { dg-do run } +! PR32235 incorrectly position text file after backspace +! Test case from PR, prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> + program main + character*10 a + ncards=2 + input=10 + write(10,"(a)") "One" + write(10,"(a)") "Two" + write(10,"(a)") "Three" + rewind(10) + read(input,1000)a + read(input,1000)a + + call inlist(ncards) + + read(input,1000)a + if (a.ne."Three") call abort + close(10,status="delete") + stop + 1000 format(a10) + 2000 format('read =',a10) + end + + subroutine inlist(ncards) + character*4 data(20) + input=10 +c + if (ncards.eq.0) go to 20 + do 15 i=1,ncards + backspace input + 15 continue +c + 20 continue + kard = 0 + 30 read(input,1000,end=60) data + 40 kard=kard + 1 + 50 continue + if ((kard .eq. 1) .and. (DATA(1) .ne. "One")) call abort + if ((kard .eq. 2) .and. (DATA(1) .ne. "Two")) call abort + if ((kard .eq. 3) .and. (DATA(1) .ne. "Thre")) call abort + + go to 30 + 60 continue + kard=kard - ncards + 1 + do 70 i=1,kard + backspace input + 70 continue +c + return +c + 1000 format (20a4) + 2020 format (8x,i15,8x,20a4) +c + end |