STAT

Module

USE IFPORT

result = STAT (name,statb)

name

(Input) Character*(*). Name of the file to examine.

statb

(Output) INTEGER(4) or INTEGER(8). One-dimensional array of size 12; where the system information is stored. The elements of statb contain the following values: Element Description Values or Notes statb(1) Device the file resides on W*S: Always 0 L*X, M*X: System dependent statb(2) File inode number W*S: Always 0 L*X, M*X: System dependent statb(3) Access mode of the file See the table in Results statb(4) Number of hard links to the file W*S: Always 1 L*X, M*X: System dependent statb(5) User ID of owner W*S: Always 1 L*X, M*X: System dependent statb(6) Group ID of owner W*S: Always 1 L*X, M*X: System dependent statb(7) Raw device the file resides on W*S: Always 0 L*X, M*X: System dependent statb(8) Size of the file statb(9) Time when the file was last accessed1 W*S: Only available on non-FAT file systems; undefined on FAT systems L*X, M*X: System dependent statb(10) Time when the file was last modified1 statb(11) Time of last file status change1 W*S: Same as stat(10) L*X, M*X: System dependent statb(12) Blocksize for file system I/O operations W*S: Always 1 L*X, M*X: System dependent 1Times are in the same format returned by the TIME function (number of seconds since 00:00:00 Greenwich mean time, January 1, 1970).

Results

The result type is INTEGER(4).

On Windows* systems, the result is zero if the inquiry was successful; otherwise, the error code ENOENT (the specified file could not be found). On Linux* and OS X* systems, the file inquired about must be currently connected to a logical unit and must already exist when STAT is called; if STAT fails, errnois set.

For a list of other error codes, see IERRNO.

The access mode (the third element of statb) is a bitmap consisting of an IOR of the following constants:

STAT returns the same information as FSTAT, but accesses files by name instead of external unit number.

On Windows* systems, LSTAT returns exactly the same information as STAT. On Linux and OS X systems, if the file denoted by name is a link, LSTAT provides information on the link, while STAT provides information on the file at the destination of the link.

You can also use the INQUIRE statement to get information about file properties.

Example

 USE IFPORT
 CHARACTER*12 file_name
 INTEGER(4) info_array(12)
 print *, 'Enter file to examine: '
 read *, file_name
 ISTATUS = STAT (file_name, info_array)
 if (.not. istatus) then
   print *, info_array else
   print *, 'Error = ',istatus
 end if
 end