cpu_time.c: Add cpu_time_10 and cpu_time_16 routines.

2006-09-29  Steven G. Kargl  <kargl@gcc.gnu.org>

	* intrinsics/cpu_time.c:  Add cpu_time_10 and cpu_time_16 routines.

From-SVN: r117320

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 84744632e932dc2c21d06275e2660b119da945b6..8b51599e3de65bb0919d0595d7960ee37f21f99e 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-29  Steven G. Kargl  <kargl@gcc.gnu.org>
+ 
+       * intrinsics/cpu_time.c:  Add cpu_time_10 and cpu_time_16 routines.
+
 2006-09-28  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        * Makefile.am: Install libgfortranbegin inside compiler libraries

diff --git a/libgfortran/intrinsics/cpu_time.c b/libgfortran/intrinsics/cpu_time.c
index 8469a4381aacf1711cbb75ac30204219a3c45eee..baee1f45445a3e1cb04a31369aa34f18bd8df594 100644 (file)
--- a/libgfortran/intrinsics/cpu_time.c
+++ b/libgfortran/intrinsics/cpu_time.c
@@ -171,6 +171,30 @@ void cpu_time_8 (GFC_REAL_8 *time)
   *time = sec + usec * (GFC_REAL_8)1.e-6;
 }
 
+#ifdef HAVE_GFC_REAL_10
+extern void cpu_time_10 (GFC_REAL_10 *);
+export_proto(cpu_time_10);
+
+void cpu_time_10 (GFC_REAL_10 *time)
+{
+  long sec, usec;
+  __cpu_time_1 (&sec, &usec);
+  *time = sec + usec * (GFC_REAL_10)1.e-6;
+}
+#endif
+
+#ifdef HAVE_GFC_REAL_16
+extern void cpu_time_16 (GFC_REAL_16 *);
+export_proto(cpu_time_16);
+
+void cpu_time_16 (GFC_REAL_16 *time)
+{
+  long sec, usec;
+  __cpu_time_1 (&sec, &usec);
+  *time = sec + usec * (GFC_REAL_16)1.e-6;
+}
+#endif
+
 extern void second_sub (GFC_REAL_4 *);
 export_proto(second_sub);