u77-test.f: Double-check ETIME results, just like 0.5.24 does.

Mon Jul 13 13:31:03 1998  Craig Burley  <burley@gnu.org>
	* 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 a4c483a..e494348 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jul 13 13:31:03 1998  Craig Burley  <burley@gnu.org>
+
+       * libU77/u77-test.f: Double-check ETIME results, just
+       like 0.5.24 does.
+
 1998-07-10  Dave Love  <d.love@dl.ac.uk>
 
        * Makefile.in: Re-write build procedure mainly to honour

diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f
index e861617..07963c9 100644 (file)
--- 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:',