OpenCores

URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [read_x_eof.f90] - Rev 774

Go to most recent revision | Compare with Previous | Blame | View Log

! { dg-do run }
! PR43265 No EOF condition if reading with '(x)' from an empty file
! Test case from the reporter.
program pr43265
implicit none
integer::i
open(23,status="scratch")
write(23,'(a)') "Line 1"
write(23,'(a)') "Line 2"
write(23,'(a)') "Line 3"
rewind(23)
do i=1,10
  read(23,'(1x)',end=12)
enddo
12 if (i.ne.4) call abort
end

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.