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

   1:         character*24 ctime, fdate
   2:         integer time, tl(9), tgm(9)
   3:         write(*,*) ctime(time()), fdate()
   4:         call ltime(time(), tl)
   5:         call gmtime(time(), tgm)
   6:         write(*,*) tl, tgm
   7:         end