etime.c: Remove etime_

2006-07-15  Steven G. Kargl  <kargls@comcast.net>

    * intrinsics/etime.c: Remove etime_
    * libtool-version: Bump from libgfortran.so.1 to libgfortran.so.2

From-SVN: r115478

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b4478b43e9fc6e5a27e40179ea0bc59aaddf78ae..290a3e01968e686cb3fd14dbcb99473afa485c04 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-15  Steven G. Kargl  <kargls@comcast.net>
+
+       * intrinsics/etime.c: Remove etime_
+       * libtool-version: Bump from libgfortran.so.1 to libgfortran.so.2
+
 2006-07-12  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR fortran/28163

diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c
index 6263d4d0ee57d799439d32a69812307679cf4a39..c5a6ee9ddf5c2d10ca80cdcb4dd11b41fe69c2ce 100644 (file)
--- a/libgfortran/intrinsics/etime.c
+++ b/libgfortran/intrinsics/etime.c
@@ -90,25 +90,3 @@ etime (gfc_array_r4 *t)
   etime_sub (t, &val);
   return val;
 }
-
-/* LAPACK's test programs declares ETIME external, therefore we
-   need this.  */
-
-extern GFC_REAL_4 etime_ (GFC_REAL_4 *t);
-export_proto_np(etime_);
-
-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;
-
-  etime_sub (&desc, &val);
-  return val;
-}

diff --git a/libgfortran/libtool-version b/libgfortran/libtool-version
index 31f1cabfc7487f5587f119896154f3efd64391fa..64c83c4b42d64355e1675954b6533f28d8760770 100644 (file)
--- a/libgfortran/libtool-version
+++ b/libgfortran/libtool-version
@@ -3,4 +3,4 @@
 # This is a separate file so that version updates don't involve re-running
 # automake.
 # CURRENT:REVISION:AGE
-1:0:0
+2:0:0