diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3d6ed1a8e1b..9747c0e480d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* intrinsics/time_1.h (__time_1): Remove unused variable.
+
 2008-04-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/35988
diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h
index 93b3d2dc467..3dcb9d5f5ae 100644
--- a/libgfortran/intrinsics/time_1.h
+++ b/libgfortran/intrinsics/time_1.h
@@ -87,7 +87,6 @@ __time_1 (long *user_sec, long *user_usec, long *system_sec, long *system_usec)
   } kernel_time,  user_time;
 
   FILETIME unused1, unused2;
-  unsigned long long total_time;
 
   /* No support for Win9x.  The high order bit of the DWORD
      returned by GetVersion is 0 for NT and higher. */