1.4.2 access：检查文件权限或文件是否存在 (Sun Studio 12：Fortran 库参考)

Sun Studio 12：Fortran 库参考

1.4.2 `access`：检查文件权限或文件是否存在

该函数的调用方式如下所示：

*`INTEGER4 access` `status = access (` name, mode `)`**
name	`字符`	输入	文件名
mode	`字符`	输入	权限
返回值	*`INTEGER4`**	输出	status=0：OK；status>0：错误代码

access 确定是否可以使用 mode 指定的权限访问文件 name。如果可以使用 mode 指定的权限成功访问文件，access 将返回零。另请参见 gerror(3F)，了解有关错误代码的信息。

可以将 mode 设置为 r、w 和 x 中的一个或多个（以任何顺序或任意组合），也可以为空白，其中 r、w 和 x 的含义如下：

`’r’`	测试是否有读取权限
`’w’`	测试是否有写入权限
`’x’`	测试是否有执行权限
`’ ’`	测试文件是否存在

示例 1：测试是否有读/写权限：

      INTEGER*4  access, status
      status = access ( ’taccess.data’, ’rw’ )
      if ( status .eq. 0 ) write(*,*) "ok"
      if ( status .ne. 0 ) write(*,*) ’cannot read/write’, status

示例 2：测试文件是否存在：

      INTEGER*4  access, status
      status = access ( ’taccess.data’, ’ ’ )    ! blank mode
      if ( status .eq. 0 ) write(*,*) "file exists"
      if ( status .ne. 0 ) write(*,*) ’no such file’, status