diff options
author | Craig Burley <burley@gnu.org> | 1998-07-13 08:13:54 -0400 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-07-13 12:13:54 +0000 |
commit | eeba5929b88653d9bfa3d088d377f0fa97700450 (patch) | |
tree | 90dcffdd51fb2b708b27aaa95900c1dc4abb8ede /libf2c | |
parent | 6bf7163510fdc0fa77bd4bbcf837ab66e05bb28a (diff) | |
download | gcc-eeba5929b88653d9bfa3d088d377f0fa97700450.zip gcc-eeba5929b88653d9bfa3d088d377f0fa97700450.tar.gz gcc-eeba5929b88653d9bfa3d088d377f0fa97700450.tar.bz2 |
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
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/ChangeLog | 5 | ||||
-rw-r--r-- | libf2c/libU77/u77-test.f | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index a4c483a..e494348 100644 --- 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 --- 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:', |