From d06b3496f60fba03f0a742f9adfc0a6174f3f60d Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Mon, 7 Apr 2008 22:07:44 +0000
Subject: 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
---
 gcc/fortran/ioparm.def | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gcc/fortran/ioparm.def')

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)
-- 
cgit v1.1

