This is the mail archive of the mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Patch, libfortran] PR 49296 List read of file without EOR


Also, here's a slightly simplfied testcase:

! { dg-do run }
! PR 49296 List formatted read of file without EOR marker (\n).
program read_list_eof_1
  implicit none
  character(len=100) :: s
  call genfil ()
  open (unit=20, file='read.dat', form='FORMATTED', action='READ', &
  read (20, fmt=*) s
  close (20, status='delete')
  if (trim(s) /= "a") then
     call abort ()
  end if

  subroutine genfil
    open(10, file='read.dat', form='unformatted', action='write', &
         status='replace', access='stream')
    write(10) 'a'
  end subroutine genfil
end program read_list_eof_1

On Sat, Jun 11, 2011 at 13:05, Janne Blomqvist
<> wrote:
> Hi,
> attached patch fixes PR 49296. A new test for the testsuite is also included.
> Regtested on x86_64-unknown-linux-gnu, Ok for trunk?
> 2011-06-11 ÂJanne Blomqvist Â<>
> Â Â Â ÂPR libfortran/49296
> Â Â Â Â* io/list_read.c (read_character): Accept EOF as a separator when
> Â Â Â Âreading string.
> --
> Janne Blomqvist

Janne Blomqvist

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]