[gfortran] patch for PR 14837 - INQUIRE by file returns incorrect results.

[Paul Brook]

On Sunday 04 April 2004 00:08, Bud Davis wrote:
> This corrects the PR and NIST tests FM919.FOR FM920.FOR.
>
> The search for a matching file in the unit data structure was always
> failing because something other than a file descriptor
> was being used in a call to fstat.
>
> No additional test suite failures, i686/gnu/linux.  The below test fails
> before and passes after the application of this patch.
>
>
> --bud
>
>
> inquire_2.f90
>
> ! PR 14837
>       INTEGER UNIT
>       OPEN(FILE='CSEQ', UNIT=23)
>       INQUIRE(FILE='CSEQ',NUMBER=UNIT)
>       IF (UNIT.NE.23) CALL ABORT
>       END
>
>
>
> 2004-04-02  Bud Davis  <bdavis9659@comcast.net>
>
>         PR fortran/14837
>         * io/unix.c (find_file0): Use fd field of struct.

Ok.

Paul