4.3BSD - /usr/src/usr.lib/libU77/test/sortst.f

   1:         program tst
   2: c to test various syslib routines
   3:         external ntest
   4:         character*10 num(10)
   5:         do 10 i=1,10
   6:         write(*,'(i2,": ",$)') i
   7:    10   read(*,*) num(i)
   8:         write(*,*) num
   9:         call qsort(num, 10, 10, ntest)
  10:         write(*,*) num
  11:         end
  12: 
  13:         integer*2 function ntest(i1, i2)
  14:         character*10 i1, i2
  15:         ntest = 0
  16:         if (lgt(i1,i2)) ntest = 1
  17:         if (llt(i1,i2)) ntest = -1
  18:         return
  19:         end