Evolinx/gcc
Evolinx/gcc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

streamio_14.f90: New test.

Browse Source 
2008-02-10  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* gfortran.dg/streamio_14.f90:  New test.

From-SVN: r132220
This commit is contained in:
Thomas Koenig 2008-02-10 20:03:11 +00:00
parent 6c5613b043
commit 71a9ddca7a
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2008-02-10 Thomas Koenig <tkoenig@gcc.gnu.org>
* gfortran.dg/streamio_14.f90: New test.
2008-02-10 Uros Bizjak <ubizjak@gmail.com>
* gcc.target/i386/pr17390.c: Remove ilp32 target requirement.

22
gcc/testsuite/gfortran.dg/streamio_14.f90 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do run }
! Test that we can write an unformatted stream file without
! truncating.
program main
character (len=10) c
open(10, form="unformatted", access="stream", position="rewind")
write (10) '1234567890abcde'
c = ''
read (10,pos=1) c
if (c /= '1234567890') call abort
c = ''
read (10,pos=6) c
if (c /= '67890abcde') call abort
write (10,pos=3) 'AB'
c = ''
read (10,pos=1) c
if (c /= '12AB567890') call abort
c = ''
read (10,pos=6) c
if (c /= '67890abcde') call abort
close (10,status="delete")
end program main