From eeba5929b88653d9bfa3d088d377f0fa97700450 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Mon, 13 Jul 1998 08:13:54 -0400 Subject: [PATCH] u77-test.f: Double-check ETIME results, just like 0.5.24 does. Mon Jul 13 13:31:03 1998 Craig Burley * libU77/u77-test.f: Double-check ETIME results, just like 0.5.24 does. From-SVN: r21106 --- libf2c/ChangeLog | 5 +++++ libf2c/libU77/u77-test.f | 3 +++ 2 files changed, 8 insertions(+) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index a4c483aaa88..e49434875b0 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Mon Jul 13 13:31:03 1998 Craig Burley + + * libU77/u77-test.f: Double-check ETIME results, just + like 0.5.24 does. + 1998-07-10 Dave Love * Makefile.in: Re-write build procedure mainly to honour diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f index e86161778e2..07963c97e75 100644 --- a/libf2c/libU77/u77-test.f +++ b/libf2c/libU77/u77-test.f @@ -76,6 +76,9 @@ c consistency-check etime vs. dtime for first call r1 = etime (tarray1) + if (r1.ne.tarray1(1)+tarray1(2)) + + write (6,*) '*** ETIME didn''t return sum of the array: ', + + r1, ' /= ', tarray1(1), '+', tarray1(2) r2 = dtime (tarray2) if (abs (r1-r2).gt.1.0) write (6,*) + 'Results of ETIME and DTIME differ by more than a second:',