diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-09-24 18:49:10 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-24 18:49:10 +0200 |
| commit | 487c67b63712d38935a7714be0e5c493755d61e6 (patch) | |
| tree | 3c1e962a11c4f023d95f31eb1f321a6b9998dc27 /libgfortran | |
| parent | 206fb0a722984f4e463ab95a47ce0a8a2ffcdae8 (diff) | |
| download | gcc-487c67b63712d38935a7714be0e5c493755d61e6.zip gcc-487c67b63712d38935a7714be0e5c493755d61e6.tar.gz gcc-487c67b63712d38935a7714be0e5c493755d61e6.tar.bz2 | |
* intrinsics/etime.c (etime_): New function.
From-SVN: r88052
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/intrinsics/etime.c | 19 |
2 files changed, 23 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 4f282d5..278bd47 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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> * libgfortran.h: define gfc_alloca() diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c index cd11af9..d8c2f11 100644 --- a/libgfortran/intrinsics/etime.c +++ b/libgfortran/intrinsics/etime.c @@ -78,3 +78,22 @@ prefix(etime) (gfc_array_r4 *t) prefix(etime_sub) (t, &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; +} |