示例 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 not found demo% a.out demo% ls -l data1 -rw-rw-r-- 2 generic 2 Aug 11 08:50 data1 demo% |