diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-15 16:12:15 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-15 16:12:15 +0000 |
| commit | 49118851f84c16a92b047973e38c237b2332bd0c (patch) | |
| tree | b65326678a6740d7b601a204c05d8942285856df /libgfortran | |
| parent | 7b83d1d8be3e204a0e44b9c3c6fa190390dd2073 (diff) | |
| download | ppe42-gcc-49118851f84c16a92b047973e38c237b2332bd0c.tar.gz ppe42-gcc-49118851f84c16a92b047973e38c237b2332bd0c.zip | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/intrinsics/etime.c | 22 | ||||
| -rw-r--r-- | libgfortran/libtool-version | 2 |
3 files changed, 6 insertions, 23 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b4478b43e9f..290a3e01968 100644 --- 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 6263d4d0ee5..c5a6ee9ddf5 100644 --- 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 31f1cabfc74..64c83c4b42d 100644 --- 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 |
