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 11