URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [advance_6.f90] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run { target fd_truncate } }
! PR 34370 - file positioning after non-advancing I/O didn't add
! a record marker.
program main
implicit none
character(len=3) :: c
character(len=80), parameter :: fname = "advance_backspace_1.dat"
call write_file
close (95)
call check_end_record
call write_file
backspace 95
c = 'xxx'
read (95,'(A)') c
if (c /= 'ab ') call abort
close (95)
call check_end_record
call write_file
backspace 95
close (95)
call check_end_record
call write_file
endfile 95
close (95)
call check_end_record
call write_file
endfile 95
rewind 95
c = 'xxx'
read (95,'(A)') c
if (c /= 'ab ') call abort
close (95)
call check_end_record
call write_file
rewind 95
c = 'xxx'
read (95,'(A)') c
if (c /= 'ab ') call abort
close (95)
call check_end_record
contains
subroutine write_file
open(95, file=fname, status="replace", form="formatted")
write (95, '(A)', advance="no") 'a'
write (95, '(A)', advance="no") 'b'
end subroutine write_file
! Checks for correct end record, then deletes the file.
subroutine check_end_record
character(len=1) :: x
open(2003, file=fname, status="old", access="stream", form="unformatted")
read(2003) x
if (x /= 'a') call abort
read(2003) x
if (x /= 'b') call abort
read(2003) x
if (x /= achar(10)) then
read(2003) x
if (x /= achar(13)) then
else
call abort
end if
end if
close(2003,status="delete")
end subroutine check_end_record
end program main
Go to most recent revision | Compare with Previous | Blame | View Log