* intrinsics/etime.c (etime_): New function.

From-SVN: r88052

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4f282d5c854db162ede693d9706ee80c3d737414..278bd476a18e3294b0e6ce8a4c88806598ee4131 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-24  Tobias Schlueter  <tobis.schlueter@physik.uni-muenchen.de>
+
+       * intrinsics/etime.c (etime_): New function.
+
 2004-09-21  Steven G. Kargl  <kargls@comcast.net>
 
        * libgfortran.h: define gfc_alloca()

diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c
index cd11af927c6832217df27871dd4ed6bd03a818f8..d8c2f11562243d70335385a3103ed92ca48c0c4e 100644 (file)
--- a/libgfortran/intrinsics/etime.c
+++ b/libgfortran/intrinsics/etime.c
@@ -78,3 +78,22 @@ prefix(etime) (gfc_array_r4 *t)
   prefix(etime_sub) (t, &val);
   return val;
 }
+
+/* LAPACK's test programs declares ETIME external, therefore we 
+   need this.  */
+
+GFC_REAL_4
+etime_ (GFC_REAL_4 *t)
+{
+  gfc_array_r4 desc;
+  GFC_REAL_4 val;
+
+  /* We only fill in the fields that are used in etime_sub.  */
+  desc.dim[0].lbound = 0;
+  desc.dim[0].ubound = 1;
+  desc.dim[0].stride = 1;
+  desc.data = t;
+
+  prefix(etime_sub) (&desc, &val);
+  return val;
+}