1.4.2 access: Check File Permissions or Existence (Sun Studio 12: Fortran Library Reference)

Sun Studio 12: Fortran Library Reference

1.4.2 `access`: Check File Permissions or Existence

The function is called by:

*`INTEGER4 access` `status = access (` name, mode `)`**
name	`character`	Input	File name
mode	`character`	Input	Permissions
Return value	*`INTEGER4`**	Output	status=0: OKstatus>0: Error code

access determines if you can access the file name with the permissions specified by mode. access returns zero if the access specified by mode would be successful. See also gerror(3F) to interpret error codes.

Set mode to one or more of r, w, x, in any order or combination, or blank, where r, w, x have the following meanings:

`’r’`	Test for read permission
`’w’`	Test for write permission
`’x’`	Test for execute permission
`’ ’`	Test for existence of the file

Example 1: Test for read/write permission:

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

Example 2: Test for existence:

      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