diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-09-11 04:57:47 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-09-11 04:57:47 +0000 |
| commit | 342223a401ef4f611795eb3913b3687a80847eeb (patch) | |
| tree | 89e143d8ca4361288a22c91923a06130f57d01d9 | |
| parent | 92bcdc13d1dbac333cefef70de9ac61348cdef9b (diff) | |
| download | gcc-342223a401ef4f611795eb3913b3687a80847eeb.zip gcc-342223a401ef4f611795eb3913b3687a80847eeb.tar.gz gcc-342223a401ef4f611795eb3913b3687a80847eeb.tar.bz2 | |
Fix bad consistency checks.
From-SVN: r22386
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f index 5219f34..8364cb5 100644 --- a/gcc/testsuite/g77.f-torture/execute/u77-test.f +++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f @@ -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)) |