例 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% |