例 1: link: ファイル tlink.db.data.1 に対して、data1 という名前のリンクを作成します。
demo% cat tlink.f
character*34 name1/'tlink.db.data.1'/, name2/'data1'/
integer*4 link, status
status = link( name1, name2 )
if ( status .ne. 0 ) stop 'link: error'
end
demo% f95 tlink.f
demo% ls -l data1
data1 : ファイルもディレクトリもありません
demo% a.out
demo% ls -l data1
-rw-rw-r-- 2 generic 2 8 月 11 日 08:50 data1
demo%
|