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

* intrinsics/etime.c (etime_): New function.

Browse Source 
From-SVN: r88052
This commit is contained in:
Tobias Schlüter 2004-09-24 18:49:10 +02:00 committed by Tobias Schlüter
parent 206fb0a722
commit 487c67b637
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-09-24 Tobias Schlueter <tobis.schlueter@physik.uni-muenchen.de>
* intrinsics/etime.c (etime_): New function.
2004-09-21 Steven G. Kargl <kargls@comcast.net> 2004-09-21 Steven G. Kargl <kargls@comcast.net>
* libgfortran.h: define gfc_alloca() * libgfortran.h: define gfc_alloca()

19
libgfortran/intrinsics/etime.c
View File

@ -78,3 +78,22 @@ prefix(etime) (gfc_array_r4 *t)
prefix(etime_sub) (t, &val); prefix(etime_sub) (t, &val);
return val; return val;
} }
/* LAPACK's test programs declares ETIME external, therefore we
need this. */
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;
prefix(etime_sub) (&desc, &val);
return val;
}