[PATCh] Fix a -Wnarrowing warning in Fortran FE

Jakub Jelinek jakub@redhat.com
Tue Jul 25 08:53:00 GMT 2017


Hi!

I've noticed yesterday a -Wnarrowing warning in the Fortran FE that broke
my build (old configure, these days we use -Wno-narrowing, so don't see
that).

We are storing the mask into unsigned int field, and 1 << 31 is negative.
Fixed thusly, bootstrapped/regtested on x86_64-linux and i686-linux, ok for
trunk?

2017-07-25  Jakub Jelinek  <jakub@redhat.com>

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

--- gcc/fortran/ioparm.def.jj	2017-01-01 12:45:47.000000000 +0100
+++ gcc/fortran/ioparm.def	2017-07-24 18:52:43.268946713 +0200
@@ -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)

	Jakub



More information about the Fortran mailing list