diff options
Diffstat (limited to 'libgfortran/intrinsics/clock.c')
| -rw-r--r-- | libgfortran/intrinsics/clock.c | 26 |
1 files changed, 3 insertions, 23 deletions
diff --git a/libgfortran/intrinsics/clock.c b/libgfortran/intrinsics/clock.c index b1d61d8..29ccc15 100644 --- a/libgfortran/intrinsics/clock.c +++ b/libgfortran/intrinsics/clock.c @@ -1,8 +1,8 @@ /* Implementation of the MCLOCK and MCLOCK8 g77 intrinsics. - Copyright (C) 2006, 2007, 2009 Free Software Foundation, Inc. + Copyright (C) 2006, 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,19 +24,7 @@ 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 MCLOCK() */ @@ -47,11 +35,7 @@ export_proto(mclock); GFC_INTEGER_4 mclock (void) { -#ifdef HAVE_CLOCK return (GFC_INTEGER_4) clock (); -#else - return (GFC_INTEGER_4) -1; -#endif } @@ -63,10 +47,6 @@ export_proto(mclock8); GFC_INTEGER_8 mclock8 (void) { -#ifdef HAVE_CLOCK return (GFC_INTEGER_8) clock (); -#else - return (GFC_INTEGER_8) -1; -#endif } |