gcc/testsuite/gfortran.dg/backspace_9.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR32235 incorrectly position text file after backspace
   5 ! Test case from PR, prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   6       program main
   7       character*10 a
   8       ncards=2
   9       input=10
  10       write(10,"(a)") "One"
  11       write(10,"(a)") "Two"
  12       write(10,"(a)") "Three"
  13       rewind(10)
  14       read(input,1000)a
  15       read(input,1000)a
  16
  17       call inlist(ncards)
  18
  19       read(input,1000)a
  20       if (a.ne."Three") STOP 1
  21       close(10,status="delete")
  22       stop
  23  1000 format(a10)
  24  2000 format('read =',a10)
  25       end
  26
  27       subroutine inlist(ncards)
  28       character*4 data(20)
  29       input=10
  30 c
  31       if (ncards.eq.0) go to 20
  32       do 15 i=1,ncards
  33       backspace input
  34    15 continue
  35 c
  36    20 continue
  37       kard  = 0
  38    30 read(input,1000,end=60)   data
  39    40 kard=kard + 1
  40    50 continue
  41       if ((kard .eq. 1) .and. (DATA(1) .ne. "One")) STOP 2
  42       if ((kard .eq. 2) .and. (DATA(1) .ne. "Two")) STOP 3
  43       if ((kard .eq. 3) .and. (DATA(1) .ne. "Thre")) STOP 4
  44
  45       go to 30
  46    60 continue
  47       kard=kard - ncards + 1
  48       do 70   i=1,kard
  49       backspace input
  50    70 continue
  51 c
  52       return
  53 c
  54  1000 format (20a4)
  55  2020 format (8x,i15,8x,20a4)
  56 c
  57       end