OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Steven G. Kargl 2006-07-15 16:12:15 +00:00 committed by Steven G. Kargl
parent 31b29c620e
commit 8daa14ad2a
3 changed files with 6 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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

22
libgfortran/intrinsics/etime.c
View File

@ -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;
}

2
libgfortran/libtool-version
View File

@ -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