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

   1:         program rnmtst
   2:         integer rename
   3:         external rename
   4: 
   5:         open(1, file="abc")
   6:         close(1)
   7:         call system ("ls -l abc def")
   8:         write(*,*) "rename:", rename("abc", "def")
   9:         call system ("ls -l abc def")
  10:         end