From 974c0165db4f60c46f8bd40228b0b9d3c176e4bf Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Tue, 25 Jul 2017 13:44:49 +0200 Subject: [PATCH] * ioparm.def: Use 1U << 31 instead of 1 << 31 as flags2 mask. From-SVN: r250510 --- gcc/fortran/ChangeLog | 6 +++++- gcc/fortran/ioparm.def | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 613a70940b7..22b3f2c506a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,9 +1,13 @@ +2017-07-25 Jakub Jelinek + + * ioparm.def: Use 1U << 31 instead of 1 << 31 as flags2 mask. + 2017-07-24 Thomas Koenig * dump-parse-tree.c (show_symbol): Show binding label if present. 2017-07-24 Thomas Koenig - Mikael Morin + Mikael Morin PR fortran/66102 * fortran/trans-array.c (gfc_conv_resolve_dependencies): diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index 9789dd164ae..ca5631b9cd9 100644 --- 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) -- 2.30.2