rnmtst.f

来自「<B>Digital的Unix操作系统VAX 4.2源码</B>」· F 代码 · 共 11 行

	program rnmtst
	integer rename
	external rename

	open(1, file="abc")
	close(1)
	call system ("ls -l abc def")
	write(*,*) "rename:", rename("abc", "def")
	call system ("ls -l abc def")
	end