22 lines
628 B
Fortran
22 lines
628 B
Fortran
! { dg-do run }
|
|
! pr24719, non-advancing read should read more than one line
|
|
! test contributed by jerry delisle <jvdelisle@gcc.gnu.org>
|
|
implicit none
|
|
character(1) :: chr
|
|
character(20) :: correct = 'foo: bar 123abc'
|
|
integer :: i
|
|
open(unit = 11, status = "scratch", action="readwrite")
|
|
write(11,'(a)') "foo: bar"
|
|
write(11,'(a)') "123abc"
|
|
rewind(11)
|
|
i = 0
|
|
do
|
|
i = i + 1
|
|
10 read(unit = 11, fmt = '(a)', advance = 'no', end = 99, eor = 11) chr
|
|
if (chr.ne.correct(i:i)) call abort()
|
|
cycle
|
|
11 continue
|
|
end do
|
|
99 close(11)
|
|
end
|