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.) 

2010-03-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

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

From-SVN: r157848
This commit is contained in:
Jerry DeLisle 2010-03-31 02:05:56 +00:00
parent 7388f57e88
commit c107e8519a
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-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43409
* gfortran.dg/inquire_size.f90: New test.
2010-03-30 Jason Merrill <jason@redhat.com>
PR c++/41786

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