This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [gfortran] patch PR 20950
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: François-Xavier Coudert <Francois-Xavier dot Coudert at lcp dot u-psud dot fr>
- Cc: Gfortran <fortran at gcc dot gnu dot org>, Walt Brainerd <walt at fortran dot com>,gcc-patches at gcc dot gnu dot org
- Date: Mon, 11 Apr 2005 21:00:19 +0200
- Subject: Re: [gfortran] patch PR 20950
- References: <4259DAA4.6000309@fortran.com> <425A5C9C.7050107@lcp.u-psud.fr> <425A5F82.2000504@physik.uni-muenchen.de> <425A618A.5020904@lcp.u-psud.fr> <425A9CBC.8070403@lcp.u-psud.fr>
François-Xavier Coudert wrote:
> 2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
>
> PR libfortran/20950
> * io/inquire.c (inquire_via_unit): Check for the gfc_unit being
> NULL when setting ioparm.sequential.
>
> 2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
>
> PR libfortran/20950
> * gfortran.dg/pr20950.f: New test.
>
This is ok. I wanted to suggest an enhanced testcase, but to my surprise this
didn't work the way I expected: PAD returns some random string, other than
that the results looked correct, but I haven't checked them gainst the
standard. See below.
- Tobi
! { dg-do run }
character*20 undefined(4), unknown(5), no(4)
inquire (33, access = undefined(1), form = undefined(2), &
blank = undefined(3), action = undefined(4), &
direct = unknown(1), formatted = unknown(2), &
unformatted = unknown(3), sequential = unknown(4) &
pad = unknown(5), read = no(1), write = no(2), &
readwrite = no(3), delim = no(4), )
if (any (undefined /= "UNDEFINED")) CALL abort
if (any (unknown /= "UNKNOWN")) CALL abort
if (any (no /= "NO")) CALL abort
end