OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Craig Burley 1998-07-13 08:13:54 -04:00 committed by Dave Love
parent 6bf7163510
commit eeba5929b8
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libf2c/ChangeLog
View File

@ -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> 1998-07-10 Dave Love <d.love@dl.ac.uk>
* Makefile.in: Re-write build procedure mainly to honour * Makefile.in: Re-write build procedure mainly to honour

3
libf2c/libU77/u77-test.f
View File

@ -76,6 +76,9 @@
c consistency-check etime vs. dtime for first call c consistency-check etime vs. dtime for first call
r1 = etime (tarray1) 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) r2 = dtime (tarray2)
if (abs (r1-r2).gt.1.0) write (6,*) if (abs (r1-r2).gt.1.0) write (6,*)
+ 'Results of ETIME and DTIME differ by more than a second:', + 'Results of ETIME and DTIME differ by more than a second:',