diff options
Diffstat (limited to 'libgfortran/intrinsics/getcwd.c')
| -rw-r--r-- | libgfortran/intrinsics/getcwd.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/libgfortran/intrinsics/getcwd.c b/libgfortran/intrinsics/getcwd.c index d3bd8811229..e0826808ec2 100644 --- a/libgfortran/intrinsics/getcwd.c +++ b/libgfortran/intrinsics/getcwd.c @@ -1,5 +1,5 @@ /* Implementation of the GETCWD intrinsic. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,17 +28,14 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" +#include <string.h> +#include <errno.h> + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif -#ifdef HAVE_STRING_H -#include <string.h> -#endif - -#include <errno.h> extern void getcwd_i4_sub (char *, GFC_INTEGER_4 *, gfc_charlen_type); iexport_proto(getcwd_i4_sub); |