Daily bump.

[pf3gnuchains/gcc-fork.git] / libf2c / libU77 / u77-test.f

diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f
index 88a7a83..3c8151c 100644 (file)
--- a/libf2c/libU77/u77-test.f
+++ b/libf2c/libU77/u77-test.f
@@ -53,13 +53,13 @@
      +     stat, lstat, getcwd, gmtime, etime, chmod, itime, date,
      +     chdir, fgetc, fputc, system_clock, second, idate, secnds,
      +     time, ctime, fdate, ttynam, date_and_time, mclock, mclock8,
-     +     cpu_time, dtime, ftell
+     +     cpu_time, dtime, ftell, abort
       external lenstr, ctrlc
       integer lenstr
       logical l
       character gerr*80, c*1
-      character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8,
-     +     ttime*10, zone*5, ctim2*25
+      character ctim*25, line*80, lognam*20, wd*1000, line2*80,
+     +     ddate*8, ttime*10, zone*5, ctim2*25
       integer fstatb (13), statb (13)
       integer *2 i2zero
       integer values(8)
@@ -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)