Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
342223a4
Commit
342223a4
authored
Sep 11, 1998
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix bad consistency checks.
From-SVN: r22386
parent
92bcdc13
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
7 deletions
+2
-7
gcc/testsuite/g77.f-torture/execute/u77-test.f
+2
-7
No files found.
gcc/testsuite/g77.f-torture/execute/u77-test.f
View file @
342223a4
...
...
@@ -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 *, '*** vx
y
and u77 versions don''t agree'
if (i/=idat(2) .or. j/=idat(1) .or. k/=
mod(idat(3),100
)) then
print *, '*** vx
t
and u77 versions don''t agree'
call abort
end if
call time(line(:8))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment