* ioparm.def: Use 1U << 31 instead of 1 << 31 as flags2 mask.

From-SVN: r250510

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 613a70940b7ef79cb8dc108c65813a9265748445..22b3f2c506acc72201efbdcf8487ba937d7dbab2 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,9 +1,13 @@
+2017-07-25  Jakub Jelinek  <jakub@redhat.com>
+
+       * ioparm.def: Use 1U << 31 instead of 1 << 31 as flags2 mask.
+
 2017-07-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        * dump-parse-tree.c (show_symbol):  Show binding label if present.
 
 2017-07-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
-           Mikael Morin <mikael@gcc.gnu.org>
+           Mikael Morin  <mikael@gcc.gnu.org>
 
        PR fortran/66102
        * fortran/trans-array.c (gfc_conv_resolve_dependencies):

diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def
index 9789dd164aea696760663b06e0f7b9ac9afd2a3b..ca5631b9cd9275979d965ff62a9dc1aca4df88ae 100644 (file)
--- a/gcc/fortran/ioparm.def
+++ b/gcc/fortran/ioparm.def
@@ -82,7 +82,7 @@ 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, flags2,       1 << 31, int4)
+IOPARM (inquire, flags2,       1U << 31, int4)
 IOPARM (inquire, asynchronous, 1 << 0,  char1)
 IOPARM (inquire, decimal,      1 << 1,  char2)
 IOPARM (inquire, encoding,     1 << 2,  char1)