diff options
Diffstat (limited to 'libgfortran/intrinsics/time.c')
-rw-r--r-- | libgfortran/intrinsics/time.c | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/libgfortran/intrinsics/time.c b/libgfortran/intrinsics/time.c index d046e87..151466a 100644 --- a/libgfortran/intrinsics/time.c +++ b/libgfortran/intrinsics/time.c @@ -1,8 +1,8 @@ /* Implementation of the TIME and TIME8 g77 intrinsics. - Copyright (C) 2005, 2007, 2009 Free Software Foundation, Inc. + Copyright (C) 2005, 2007, 2009, 2011 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public @@ -24,24 +24,11 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" - -#ifdef TIME_WITH_SYS_TIME -# include <sys/time.h> -# include <time.h> -#else -# if HAVE_SYS_TIME_H -# include <sys/time.h> -# else -# ifdef HAVE_TIME_H -# include <time.h> -# endif -# endif -#endif +#include <time.h> /* INTEGER(KIND=4) FUNCTION TIME() */ -#ifdef HAVE_TIME extern GFC_INTEGER_4 time_func (void); export_proto(time_func); @@ -61,4 +48,3 @@ time8_func (void) { return (GFC_INTEGER_8) time (NULL); } -#endif |