From 21b04412b046c5819813c4b7d3853277385b93aa Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 20 Mar 2010 14:42:04 +0000 Subject: [PATCH] re PR fortran/43409 (I/O: INQUIRE for SIZE does not work.) 2010-03-20 Jerry DeLisle PR fortran/43409 * gfortran.dg/inquire_size.f90: New test. From-SVN: r157594 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/inquire_size.f90 | 28 ++++++++++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/inquire_size.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 22ea531d78d..6bef88f2fc9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-03-20 Jerry DeLisle + + PR fortran/43409 + * gfortran.dg/inquire_size.f90: New test. + 2010-03-20 Richard Guenther 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 00000000000..568c3d6a0f3 --- /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 + + -- 2.30.2