2008-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org

[pf3gnuchains/gcc-fork.git] / gcc / fortran / ioparm.def

diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def
index 57a5db9..ee3f6b2 100644 (file)
--- a/gcc/fortran/ioparm.def
+++ b/gcc/fortran/ioparm.def
@@ -8,10 +8,10 @@
 #define IOPARM_common_end              (1 << 3)
 #define IOPARM_common_eor              (1 << 4)
 #endif
-IOPARM (common,  flags,                0,       int4)
-IOPARM (common,  unit,         0,       int4)
-IOPARM (common,  filename,     0,       pchar)
-IOPARM (common,  line,         0,       int4)
+IOPARM (common,  flags,                0,       int4)
+IOPARM (common,  unit,         0,       int4)
+IOPARM (common,  filename,     0,       pchar)
+IOPARM (common,  line,         0,       int4)
 IOPARM (common,  iomsg,                1 << 6,  char2)
 IOPARM (common,  iostat,       1 << 5,  pint4)
 IOPARM (open,    common,       0,       common)
@@ -25,7 +25,12 @@ IOPARM (open,    position,   1 << 13, char1)
 IOPARM (open,    action,       1 << 14, char2)
 IOPARM (open,    delim,                1 << 15, char1)
 IOPARM (open,    pad,          1 << 16, char2)
-IOPARM (open,    convert,       1 << 17, char1)
+IOPARM (open,    convert,      1 << 17, char1)
+IOPARM (open,    decimal,      1 << 18, char2)
+IOPARM (open,    encoding,     1 << 19, char1)
+IOPARM (open,    round,                1 << 20, char2)
+IOPARM (open,    sign,         1 << 21, char1)
+IOPARM (open,    asynchronous, 1 << 22, char2)
 IOPARM (close,   common,       0,       common)
 IOPARM (close,   status,       1 << 7,  char1)
 IOPARM (filepos, common,       0,       common)
@@ -53,7 +58,18 @@ IOPARM (inquire, unformatted,        1 << 26, char1)
 IOPARM (inquire, read,         1 << 27, char2)
 IOPARM (inquire, write,                1 << 28, char1)
 IOPARM (inquire, readwrite,    1 << 29, char2)
-IOPARM (inquire, convert,       1 << 30, char1)
+IOPARM (inquire, convert,      1 << 30, char1)
+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, 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)
+IOPARM (wait,    id,           1 << 7,  pint4)
 #ifndef IOPARM_dt_list_format
 #define IOPARM_dt_list_format          (1 << 7)
 #define IOPARM_dt_namelist_read_mode   (1 << 8)
@@ -67,4 +83,14 @@ IOPARM (dt,      format,     1 << 12, char1)
 IOPARM (dt,      advance,      1 << 13, char2)
 IOPARM (dt,      internal_unit,        1 << 14, char1)
 IOPARM (dt,      namelist_name,        1 << 15, char2)
-IOPARM (dt,      u,            0,       pad)
+IOPARM (dt,      id,           1 << 16, pint4)
+IOPARM (dt,      pos,          1 << 17, intio)
+IOPARM (dt,      asynchronous,         1 << 18, char1)
+IOPARM (dt,      blank,                1 << 19, char2)
+IOPARM (dt,      decimal,      1 << 20, char1)
+IOPARM (dt,      delim,                1 << 21, char2)
+IOPARM (dt,      pad,          1 << 22, char1)
+IOPARM (dt,      round,                1 << 23, char2)
+IOPARM (dt,      sign,         1 << 24, char1)
+IOPARM (dt,      u,            0,       pad)
+#define IOPARM_dt_f2003                        (1 << 25)