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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115478 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b4478b4..290a3e0 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 6263d4d..c5a6ee9 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 31f1cab..64c83c4 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