diff options
| author | Andreas Jaeger <aj@gcc.gnu.org> | 2005-05-15 10:25:52 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2005-05-15 10:25:52 +0200 |
| commit | deeab82073c53d3999f99bcb70a278756a79880d (patch) | |
| tree | 5c5e356ef64577e81376928db6d155510e4b04b5 /libgfortran/runtime/string.c | |
| parent | 64fbae219b6b6567a5cdbea568a3a5b45743e2ec (diff) | |
| download | gcc-deeab82073c53d3999f99bcb70a278756a79880d.zip gcc-deeab82073c53d3999f99bcb70a278756a79880d.tar.gz gcc-deeab82073c53d3999f99bcb70a278756a79880d.tar.bz2 | |
chdir.c, [...]: Include <string.h> for prototypes.
* 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.
From-SVN: r99716
Diffstat (limited to 'libgfortran/runtime/string.c')
| -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 07f374e..5fff97f 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; } |