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

From-SVN: r88052

libgfortran/ChangeLog

+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()

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;
+}