diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-03 16:07:36 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-03 12:07:36 -0400 |
| commit | 2b0bdd9a77061bf3152e4b308ec3598a8552bd14 (patch) | |
| tree | 0bccba439be532aedb5a155142134dfc7e74bd0b /libf2c | |
| parent | 2d6d3dc232af2a3f11a1f3de03bf883ffd04d2c2 (diff) | |
reverse order of arguments to CTIME_subr, DTIME_subr, ETIME_subr, and TTYNAM_subr
From-SVN: r26756
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 5 | ||||
| -rw-r--r-- | libf2c/libU77/u77-test.f | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 7ed7ca57ee6..6a02f5e92ae 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +1999-05-03 Craig Burley <craig@jcb-sc.com> + + * libU77/u77-test.f: Reverse order of two arguments to + CTIME_subr, DTIME_subr, ETIME_subr, and TTYNAM_subr. + Mon May 3 11:21:35 1999 Craig Burley <craig@jcb-sc.com> * libF77/c_log.c: Cope with partial overlap a la z_log.c. diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f index 88a7a83e357..96ba31c572e 100644 --- a/libf2c/libU77/u77-test.f +++ b/libf2c/libU77/u77-test.f @@ -78,7 +78,7 @@ bigi = time8 () - call ctime (ctim2, i) + call ctime (i, ctim2) if (ctim .ne. ctim2) then write (6, *) '*** CALL CTIME disagrees with CTIME(): ', + ctim2(:lenstr (ctim2)), ' vs. ', ctim(:lenstr (ctim)) @@ -106,7 +106,7 @@ line = 'and 6 isn''t a tty device (ISATTY)' end if write (6,'(1X,A)') line(:lenstr(line)) - call ttynam (line, 6) + call ttynam (6, line) if (line .ne. line2) then print *, '*** CALL TTYNAM disagrees with TTYNAM: ', + line(:lenstr (line)) @@ -189,10 +189,10 @@ c now try to get times to change enough to see in etime/dtime do i = 1,1000 do j = 1,1000 end do - call dtime (r2, tarray2) + call dtime (tarray2, r2) if (tarray2(1) .ne. 0. .or. tarray2(2) .ne. 0.) exit end do - call etime (r1, tarray1) + call etime (tarray1, r1) if (.not. issum (r1, tarray1(1), tarray1(2))) then write (6,*) '*** ETIME didn''t return sum of the array: ', + r1, ' /= ', tarray1(1), '+', tarray1(2) |