2 ! pr24719, non-advancing read should read more than one line
3 ! test contributed by jerry delisle <jvdelisle@gcc.gnu.org>
6 character(20) :: correct = 'foo: bar 123abc'
8 open(unit = 11, status = "scratch", action="readwrite")
9 write(11,'(a)') "foo: bar"
10 write(11,'(a)') "123abc"
15 10 read(unit = 11, fmt = '(a)', advance = 'no', end = 99, eor = 11) chr
16 if (chr.ne.correct(i:i)) call abort()