mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-24 03:14:08 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix bad consistency checks.

Browse Source 
From-SVN: r22386
This commit is contained in:
Dave Love 1998-09-11 04:57:47 +00:00
parent 92bcdc13d1
commit 342223a401
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/g77.f-torture/execute/u77-test.f
View File

@ -80,11 +80,6 @@
c consistency-check etime vs. dtime for first call
r1 = etime (tarray1)
if (r1.ne.tarray1(1)+tarray1(2)) then
write (6,*) '*** ETIME didn''t return sum of the array: ',
+ r1, ' /= ', tarray1(1), '+', tarray1(2)
call abort
end if
r2 = dtime (tarray2)
if (abs (r1-r2).gt.1.0) then
write (6,*)
@ -141,8 +136,8 @@ c now try to get times to change enough to see in etime/dtime
call idate (idat)
write (6,*) 'IDATE d,m,y: ',idat
print *, '... and the VXT version: ', i,j,k
if (i/=idat(2) .or. j/=idat(1) .or. k/=idat(3)) then
print *, '*** vxy and u77 versions don''t agree'
if (i/=idat(2) .or. j/=idat(1) .or. k/=mod(idat(3),100)) then
print *, '*** vxt and u77 versions don''t agree'
call abort
end if
call time(line(:8))