summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/etime_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/etime_.c')
-rw-r--r--contrib/libf2c/libF77/etime_.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/libf2c/libF77/etime_.c b/contrib/libf2c/libF77/etime_.c
index e88cfd8..0c3209d 100644
--- a/contrib/libf2c/libF77/etime_.c
+++ b/contrib/libf2c/libF77/etime_.c
@@ -41,6 +41,7 @@ etime_(float *tarray)
struct tms t;
times(&t);
- return (tarray[0] = t.tms_utime/Hz) + (tarray[1] = t.tms_stime/Hz);
+ return (tarray[0] = (double)t.tms_utime/Hz)
+ + (tarray[1] = (double)t.tms_stime/Hz);
#endif
}
OpenPOWER on IntegriCloud