diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-03 16:07:36 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-03 16:07:36 +0000 |
| commit | 962b44cd2109140b5f1675af8d9eb1e518e0dc3b (patch) | |
| tree | 0bccba439be532aedb5a155142134dfc7e74bd0b /libf2c | |
| parent | a68ad8f39f73c6ab60804745501a44363d5b3339 (diff) | |
| download | gcc-962b44cd2109140b5f1675af8d9eb1e518e0dc3b.tar.gz | |
reverse order of arguments to CTIME_subr, DTIME_subr, ETIME_subr, and TTYNAM_subr
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26756 138bc75d-0d04-0410-961f-82ee72b054a4
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) |