diff options
| author | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-15 08:25:52 +0000 |
|---|---|---|
| committer | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-15 08:25:52 +0000 |
| commit | 9ecc9c35b2c7f4320e7c0aa6acb39ba9fbd96329 (patch) | |
| tree | 5c5e356ef64577e81376928db6d155510e4b04b5 /libgfortran/runtime | |
| parent | a324cccc5065c0a26e802a06111dbb86c3173da4 (diff) | |
| download | gcc-9ecc9c35b2c7f4320e7c0aa6acb39ba9fbd96329.tar.gz | |
* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
prototypes.
* runtime/string.c (compare0): Remove unused variable.
* io/unit.c (init_units): Remove unused variables.
* intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
* intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
* intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
stat_i8_sub): Remove unused variable.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99716 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/string.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index 07f374eea04..5fff97f5a3c 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2003 Free Software Foundation, Inc. +/* Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -40,12 +40,11 @@ Boston, MA 02111-1307, USA. */ static int compare0 (const char *s1, int s1_len, const char *s2) { - int i; int len; /* Strip trailing blanks from the Fortran string. */ - len = fstrlen(s1, s1_len); - return strncasecmp(s1,s2,len) == 0; + len = fstrlen (s1, s1_len); + return strncasecmp (s1, s2, len) == 0; } |