[Bug fortran/48976] New: INQUIRE with STREAM= not supported

[Bug fortran/48976] New: INQUIRE with STREAM= not supported

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

           Summary: INQUIRE with STREAM= not supported
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: jvdelisle@gcc.gnu.org


Fortran 2003/2008 support INQUIRE for STREAM:

"9.10.2.31 STREAM= specifier in the INQUIRE statement

"The scalar-default-char-variable in the STREAM= specifier is assigned the
value YES if STREAM is included in the set of allowed access methods for the
file, NO if STREAM is not included in the set of allowed access methods for the
file, and UNKNOWN if the processor is unable to determine whether STREAM is
included in the set of allowed access methods for the file or if the unit
identified by file-unit-number is not connected to a file."

However, gfortran rejects it with:

INQUIRE(99, stream=str)
           1
Error: Syntax error in INQUIRE statement at (1)



character(len=20) :: str
INQUIRE(99, stream=str)
end

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2011.05.12 18:45:19
         AssignedTo|unassigned at gcc dot       |jvdelisle at gcc dot
                   |gnu.org                     |gnu.org
     Ever Confirmed|0                           |1

--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2011-05-12 18:45:19 UTC ---
I seem to recall this use to work. We need to check to see if this is a
regression.

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

--- Comment #2 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2011-05-12 19:04:46 UTC ---
OK, I checked.  We simply have not implemented this yet.  I will do so.

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-27 06:39:08 UTC ---
A patch has been submitted for review.

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-27 18:07:39 UTC ---
Author: jvdelisle
Date: Thu Dec 27 18:07:33 2012
New Revision: 194733

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194733
Log:
2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

    PR libfortran/48976
    * io/inquire.c (inquire_via_unit): Set user stream inquiry variable to
    appropriate value based on unit access method. (inquire_via_filename):
    Since filename is not associated with an open unit, set stream inquiry
    to UNKNOWN.
    * io/io.h: Define inquire stream parameters.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/inquire.c
    trunk/libgfortran/io/io.h

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

--- Comment #5 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-27 18:09:20 UTC ---
Author: jvdelisle
Date: Thu Dec 27 18:09:13 2012
New Revision: 194734

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194734
Log:
2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

    PR fortran/48976
    * gfortran.h (gfc_inquire struct): Add pointer for inquire stream.
    * io.c (io_tag): Add tag for inquire stream. (match_inquire_element):
    Add matcher for new tag. (gfc_resolve_inquire): Resolve new tag.
    * ioparm.def: Add new parameter for inquire stream.
    * trans-io.c (gfc_trans_inquire): Add tranlste code for inquire
    stream.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/io.c
    trunk/gcc/fortran/ioparm.def
    trunk/gcc/fortran/trans-io.c

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-27 19:24:47 UTC ---
Author: jvdelisle
Date: Thu Dec 27 19:24:44 2012
New Revision: 194736

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194736
Log:
2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

    PR fortran/48976
    * gfortran.dg/inquire_15.f90: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/inquire_15.f90
Modified:
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/48976] INQUIRE with STREAM= not supported

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48976

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED

--- Comment #7 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-27 20:15:58 UTC ---
Closing