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
This commit is contained in:
parent
31b29c620e
commit
8daa14ad2a
3 changed files with 6 additions and 23 deletions
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue