diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-07 22:07:44 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-07 22:07:44 +0000 |
| commit | d06b3496f60fba03f0a742f9adfc0a6174f3f60d (patch) | |
| tree | d0c78839eaa0e8d575e625941f9f193f1bc826a6 /gcc/fortran/ioparm.def | |
| parent | 931149a6b763268df6377a2951927b2db4e4e350 (diff) | |
| download | gcc-d06b3496f60fba03f0a742f9adfc0a6174f3f60d.zip gcc-d06b3496f60fba03f0a742f9adfc0a6174f3f60d.tar.gz gcc-d06b3496f60fba03f0a742f9adfc0a6174f3f60d.tar.bz2 | |
PR fortran/25829 28655
2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25829 28655
* io.c (io_tag): Add new tags for decimal, encoding, asynchronous,
round, sign, and id. (match_open_element): Match new tags.
(gfc_resolve_open): Resolve new tags. (gfc_match_open): Enable encoding
for DEFAULT only. Update error messages. (match_dt_element): Fix match
tag for asynchronous. Update error messages. (gfc_free_inquire): Free
new expressions. (match_inquire_element): Match new tags.
(gfc_match_inquire): Add constraint for ID and PENDING.
(gfc_resolve_inquire): Resolve new tags.
* trans-io.c (gfc_trans_inquire): Clean up whitespace and fix setting of
mask for ID parameter.
* ioparm.def: Fix order of parameters for pending, round, and sign.
NOTE: These must line up with the definitions in libgfortran/io/io.h. or
things don't work.
From-SVN: r133989
Diffstat (limited to 'gcc/fortran/ioparm.def')
| -rw-r--r-- | gcc/fortran/ioparm.def | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index b16fcb5..deb1b98 100644 --- a/gcc/fortran/ioparm.def +++ b/gcc/fortran/ioparm.def @@ -63,9 +63,9 @@ IOPARM (inquire, flags2, 1 << 31, int4) IOPARM (inquire, asynchronous, 1 << 0, char1) IOPARM (inquire, decimal, 1 << 1, char2) IOPARM (inquire, encoding, 1 << 2, char1) -IOPARM (inquire, round, 1 << 3, char2) -IOPARM (inquire, sign, 1 << 4, char1) -IOPARM (inquire, pending, 1 << 5, pint4) +IOPARM (inquire, pending, 1 << 3, pint4) +IOPARM (inquire, round, 1 << 4, char1) +IOPARM (inquire, sign, 1 << 5, char2) IOPARM (inquire, size, 1 << 6, pint4) IOPARM (inquire, id, 1 << 7, pint4) IOPARM (wait, common, 0, common) |