From: Craig Burley Date: Mon, 13 Jul 1998 12:13:54 +0000 (-0400) Subject: u77-test.f: Double-check ETIME results, just like 0.5.24 does. X-Git-Tag: prereleases/egcs-1.1-prerelease~280 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eeba5929b88653d9bfa3d088d377f0fa97700450;p=thirdparty%2Fgcc.git 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 --- diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index a4c483aaa884..e49434875b01 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 e86161778e2c..07963c97e75a 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:',