From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Fri, 24 Sep 2004 16:49:10 +0000 (+0200)
Subject: * intrinsics/etime.c (etime_): New function.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=487c67b63712d38935a7714be0e5c493755d61e6;p=gcc.git

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

From-SVN: r88052
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4f282d5c854..278bd476a18 100644
--- 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 cd11af927c6..d8c2f115622 100644
--- 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;
+}