1 files changed, 57 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/backspace_9.f b/gcc/testsuite/gfortran.dg/backspace_9.f
new file mode 100644
index 000000000..851f518a2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/backspace_9.f
@@ -0,0 +1,57 @@
+! { dg-do run }
+! { dg-options "-std=legacy" }
+!
+! 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