OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/43409 (I/O: INQUIRE for SIZE does not work.)

Browse Source 
2010-03-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/43409
	* gfortran.dg/inquire_size.f90: New test.

From-SVN: r157594
This commit is contained in:
Jerry DeLisle 2010-03-20 14:42:04 +00:00
parent 41c3cddc6b
commit 21b04412b0
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-03-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43409
* gfortran.dg/inquire_size.f90: New test.
2010-03-20 Richard Guenther <rguenther@suse.de> 2010-03-20 Richard Guenther <rguenther@suse.de>
PR rtl-optimization/43438 PR rtl-optimization/43438

28
gcc/testsuite/gfortran.dg/inquire_size.f90 Normal file
View File

@ -0,0 +1,28 @@
! { dg-do run }
! PR43409 I/O: INQUIRE for SIZE does not work.
integer :: i
character(30) :: aname = "noname"
logical :: is_named
open(25, file="testfile", status="replace", access="stream", form="unformatted")
do i=1,100
write(25) i, "abcdefghijklmnopqrstuvwxyz"
enddo
flush(25)
inquire(unit=25, named=is_named, name=aname, size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
inquire(file="testfile", size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
close(25, status="delete")
inquire(file="testfile", size=i)
if (i /= -1) call abort
end