diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-20 14:42:04 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-20 14:42:04 +0000 |
| commit | 21b04412b046c5819813c4b7d3853277385b93aa (patch) | |
| tree | 6e2eb8e6649515b0d120d357184adf818058791b /gcc | |
| parent | 41c3cddc6b5d279f56f02709a92f55d61e4675c7 (diff) | |
| download | gcc-21b04412b046c5819813c4b7d3853277385b93aa.zip gcc-21b04412b046c5819813c4b7d3853277385b93aa.tar.gz gcc-21b04412b046c5819813c4b7d3853277385b93aa.tar.bz2 | |
re PR fortran/43409 (I/O: INQUIRE for SIZE does not work.)
2010-03-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43409
* gfortran.dg/inquire_size.f90: New test.
From-SVN: r157594
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_size.f90 | 28 |
2 files changed, 33 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 22ea531..6bef88f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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> PR rtl-optimization/43438 diff --git a/gcc/testsuite/gfortran.dg/inquire_size.f90 b/gcc/testsuite/gfortran.dg/inquire_size.f90 new file mode 100644 index 0000000..568c3d6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_size.f90 @@ -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 + + |