From 487c67b63712d38935a7714be0e5c493755d61e6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Fri, 24 Sep 2004 18:49:10 +0200 Subject: [PATCH] * intrinsics/etime.c (etime_): New function. From-SVN: r88052 --- libgfortran/ChangeLog | 4 ++++ libgfortran/intrinsics/etime.c | 19 +++++++++++++++++++ 2 files changed, 23 insertions(+) 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 + + * intrinsics/etime.c (etime_): New function. + 2004-09-21 Steven G. Kargl * 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; +} -- 2.30.2