Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/backspace_10.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do run }
! PR33307 I/O read/positioning problem - in BACKSPACE
! Test case devloped from test in PR by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
program gfcbug69b
  ! Modified example program
  implicit none
  integer, parameter :: iunit = 63
  integer            :: istat, k, ios
  character(len=20) :: line, message

  open (iunit)
  write (iunit, '(a)') "! ***Remove this line***"
  write (iunit, '(a)') "&FOO        file='foo' /"
  write (iunit, '(a)', advance="no") "&BAR        file='bar' /"
  close (iunit)
! Note: Failure occurred only when ACTION="read" was specified
  open (iunit, action="read", status="old")
  
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 1
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 2
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 3
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) backspace (iunit)
  rewind (iunit)
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 4
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 5
  read (iunit,'(a)',iostat=ios) line
  if (ios /= 0) STOP 6
  read (iunit,'(a)',iostat=ios) line
  if (ios /= -1) STOP 7
  close (iunit, status="delete")
end program gfcbug69b