mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
24 lines
576 B
Fortran
24 lines
576 B
Fortran
! { dg-do run }
|
|
! { dg-options "-std=legacy" }
|
|
!
|
|
! PR 17709
|
|
! We weren't resetting the internal EOR flag correctly, so the second read
|
|
! wasn't advancing to the next line.
|
|
program main
|
|
integer io_unit
|
|
character*20 str
|
|
io_unit = 10
|
|
open (unit=io_unit,status='scratch',form='formatted')
|
|
write (io_unit, '(A)') "Line1"
|
|
write (io_unit, '(A)') "Line2"
|
|
write (io_unit, '(A)') "Line3"
|
|
rewind (io_unit)
|
|
read (io_unit,'(A)') str
|
|
if (str .ne. "Line1") STOP 1
|
|
read (io_unit,'()')
|
|
read (io_unit,'(A)') str
|
|
if (str .ne. "Line3") STOP 2
|
|
close(unit=io_unit)
|
|
end
|
|
|