diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 18:09:13 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 18:09:13 +0000 |
| commit | 93e8af199cc829c12790873935a4fa4c51c89044 (patch) | |
| tree | 6f4d966648a1add073849598d28e700c75419c8f /gcc/fortran/trans-io.c | |
| parent | 797332eda948b694d2e5199869ebd8e748b938db (diff) | |
| download | gcc-93e8af199cc829c12790873935a4fa4c51c89044.zip gcc-93e8af199cc829c12790873935a4fa4c51c89044.tar.gz gcc-93e8af199cc829c12790873935a4fa4c51c89044.tar.bz2 | |
re PR fortran/48976 (INQUIRE with STREAM= not supported)
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.
From-SVN: r194734
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 940129e..921edd0 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1364,6 +1364,9 @@ gfc_trans_inquire (gfc_code * code) if (p->id) mask2 |= set_parameter_ref (&block, &post_block,var, IOPARM_inquire_id, p->id); + if (p->iqstream) + mask2 |= set_string (&block, &post_block, var, IOPARM_inquire_iqstream, + p->iqstream); if (mask2) mask |= set_parameter_const (&block, var, IOPARM_inquire_flags2, mask2); |