1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)rnmtst.f 5.2 (Berkeley) 04/12/91 8C 9 10 program rnmtst 11 integer rename 12 external rename 13 14 open(1, file="abc") 15 close(1) 16 call system ("ls -l abc def") 17 write(*,*) "rename:", rename("abc", "def") 18 call system ("ls -l abc def") 19 end 20