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/intrinsics/getcwd.c | |
| 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/intrinsics/getcwd.c')
| -rw-r--r-- | libgfortran/intrinsics/getcwd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/getcwd.c b/libgfortran/intrinsics/getcwd.c index 707db529ebb..89e481d015d 100644 --- a/libgfortran/intrinsics/getcwd.c +++ b/libgfortran/intrinsics/getcwd.c @@ -1,5 +1,5 @@ /* Implementation of the GETCWD intrinsic. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2005 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -46,7 +46,7 @@ iexport_proto(getcwd_i4_sub); void getcwd_i4_sub (char *cwd, GFC_INTEGER_4 *status, gfc_charlen_type cwd_len) { - char str[cwd_len + 1], *s; + char str[cwd_len + 1]; GFC_INTEGER_4 stat; memset(cwd, ' ', (size_t) cwd_len); @@ -58,7 +58,7 @@ getcwd_i4_sub (char *cwd, GFC_INTEGER_4 *status, gfc_charlen_type cwd_len) stat = 0; memcpy (cwd, str, strlen (str)); } - if (status != NULL) + if (status != NULL) *status = stat; } iexport(getcwd_i4_sub); |