diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-24 16:49:10 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-24 16:49:10 +0000 |
| commit | 51a2223143bdb79ee7a39564628e5d6dd36be810 (patch) | |
| tree | 3c1e962a11c4f023d95f31eb1f321a6b9998dc27 /libgfortran | |
| parent | 578a1a842ccda6f650616e20d97cfdbfd5e8129b (diff) | |
| download | gcc-51a2223143bdb79ee7a39564628e5d6dd36be810.tar.gz | |
* intrinsics/etime.c (etime_): New function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88052 138bc75d-0d04-0410-961f-82ee72b054a4
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 4f282d5c854..278bd476a18 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 cd11af927c6..d8c2f115622 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; +} |