OSDN Git Service

* intrinsics/etime.c (etime_): New function.
authortobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 24 Sep 2004 16:49:10 +0000 (16:49 +0000)
committertobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 24 Sep 2004 16:49:10 +0000 (16:49 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88052 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/intrinsics/etime.c

index 4f282d5..278bd47 100644 (file)
@@ -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()
index cd11af9..d8c2f11 100644 (file)
@@ -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;
+}