diff options
author | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-17 17:02:38 +0000 |
---|---|---|
committer | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-17 17:02:38 +0000 |
commit | 61b32b46f96816c9a92fb0e37acb84ff8038e59f (patch) | |
tree | c41d1358c6475591fcbf1824b15f026e9019846b /libgfortran | |
parent | e27482aa54700157a58b7b2f73afdd6c1709c98e (diff) | |
download | ppe42-gcc-61b32b46f96816c9a92fb0e37acb84ff8038e59f.tar.gz ppe42-gcc-61b32b46f96816c9a92fb0e37acb84ff8038e59f.zip |
* io/unit.c (get_unit): Mark argument as unused.
(init_units): Avoid warning about signed comparision.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99842 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/io/unit.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 6f64825fdf2..9058665fb91 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -248,7 +248,7 @@ find_unit (int n) * unit or the internal file. */ gfc_unit * -get_unit (int read_flag) +get_unit (int read_flag __attribute__ ((unused))) { if (ioparm.internal_unit != NULL) { @@ -289,7 +289,7 @@ void init_units (void) { gfc_unit *u; - int i; + unsigned int i; if (options.stdin_unit >= 0) { /* STDIN */ @@ -363,7 +363,7 @@ init_units (void) * set a 1 in the LSB and keep a running sum, stopping at MSB-1 bit. */ g.max_offset = 0; - for (i=0; i < sizeof(g.max_offset) * 8 - 1; i++) + for (i = 0; i < sizeof (g.max_offset) * 8 - 1; i++) g.max_offset = g.max_offset + ((gfc_offset) 1 << i); } |