! { dg-do run } | |
! { dg-options -w } | |
! PR 26661 : Test reading X's past file end with no LF or CR. | |
! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag. | |
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>. | |
implicit none | |
character(3) a(4) | |
integer i | |
open (10) | |
10 format(A,$) ! This is not pedantic | |
write(10,10)' abc def ghi jkl' | |
rewind(10) | |
read(10,20)(a(i),i=1,4) | |
if (a(4).ne."jkl") call abort() | |
20 format(1x,a3,1x,a3,1x,a3,1x,a3,10x) | |
close(10, status="delete") | |
end |