2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>

	PR libfortran/35355
	* intrinsics/time_1.h (__time_1): Fix calculation of user_usec
	for mingw.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132808 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8ed3624..8434c23 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-03-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/35355
+       * intrinsics/time_1.h (__time_1): Fix calculation of user_usec
+       for mingw.
+

 2008-03-01  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/35063
 2008-03-01  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/35063

diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h
index 43e6d89..93b3d2d 100644 (file)
--- a/libgfortran/intrinsics/time_1.h
+++ b/libgfortran/intrinsics/time_1.h
@@ -104,10 +104,10 @@ __time_1 (long *user_sec, long *user_usec, long *system_sec, long *system_usec)
                   &kernel_time.ft, &user_time.ft);
 
   *user_sec = user_time.ulltime / 10000000;
                   &kernel_time.ft, &user_time.ft);
 
   *user_sec = user_time.ulltime / 10000000;

-  *user_usec = user_time.ulltime % 10000000;
+  *user_usec = (user_time.ulltime % 10000000) / 10;

 
   *system_sec = kernel_time.ulltime / 10000000;
 
   *system_sec = kernel_time.ulltime / 10000000;

-  *system_usec = kernel_time.ulltime % 10000000;
+  *system_usec = (kernel_time.ulltime % 10000000) / 10;

   return 0;
 }
 
   return 0;
 }