diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2006-07-15 16:12:15 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-07-15 16:12:15 +0000 |
| commit | 8daa14ad2afd0ab60cad426b15583d12b5fdc6c5 (patch) | |
| tree | b65326678a6740d7b601a204c05d8942285856df /libgfortran/intrinsics/etime.c | |
| parent | 31b29c620e4a7fe59b61d81ed9c13e89fe293b33 (diff) | |
| download | gcc-8daa14ad2afd0ab60cad426b15583d12b5fdc6c5.zip gcc-8daa14ad2afd0ab60cad426b15583d12b5fdc6c5.tar.gz gcc-8daa14ad2afd0ab60cad426b15583d12b5fdc6c5.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/intrinsics/etime.c')
| -rw-r--r-- | libgfortran/intrinsics/etime.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c index 6263d4d..c5a6ee9 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; -} |