Commit 5b8c001a by Jerry DeLisle

re PR libfortran/25289 (Cannot handle record numbers large than huge(0_4))

2006-07-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/25289
	* gfortran.dg/direct_io_6.f90: New test.

From-SVN: r115702
parent 68ea48ea
2006-07-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25289
* gfortran.dg/direct_io_6.f90: New test.
2006-07-24 Jan Hubicka <jh@suse.cz>
PR c/25795
!{ dg-do run }
! PR25289 Cannot handle record numbers larger than huge(0_4).
! This test checks that very large record numbers can be used.
! Derived from example in PR.
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer(KIND=1) abyte
integer(KIND=8) n
n = huge(0_4)
n = n * 256
abyte = 105
open(10,file="foo",recl=2,form='unformatted',access='direct')
write(10,rec=n) abyte
abyte = 0
read(10,rec=n) abyte
if (abyte.ne.105) call abort()
write(10,rec=1) abyte
abyte = 0
read(10,rec=1) abyte
if (abyte.ne.105) call abort()
n=n/2
write(10,rec=n) abyte
abyte = 0
read(10,rec=n) abyte
if (abyte.ne.105) call abort()
close(10, status="delete")
end
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment