OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

intrinsic.texi (STAT): Shortened lines in sample code. 

* intrinsic.texi (STAT): Shortened lines in sample code.

From-SVN: r117675
This commit is contained in:
Brooks Moses 2006-10-12 23:13:30 +00:00 committed by Brooks Moses
parent 34daf61d57
commit 25f3257418
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2006-10-12 Brooks Moses <bmoses@stanford.edu>
* intrinsic.texi (STAT): Shortened lines in sample code.
2006-10-11 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.h (gfc_show_actual_arglist, gfc_show_array_ref,

30
gcc/fortran/intrinsic.texi
View File

@ -7633,26 +7633,26 @@ Non-elemental subroutine
@item @emph{Example}:
@smallexample
PROGRAM test_fstat
PROGRAM test_stat
INTEGER, DIMENSION(13) :: buff
INTEGER :: status
CALL STAT("/etc/passwd", statarr, status)
CALL STAT("/etc/passwd", buff, status)
IF (status == 0) THEN
WRITE (*, FMT="('Device ID:', T40, I19)") buff(1)
WRITE (*, FMT="('Inode number:', T40, I19)") buff(2)
WRITE (*, FMT="('File mode:', T40, o19)") buff(3)
WRITE (*, FMT="('Number of links:', T40, I19)") buff(4)
WRITE (*, FMT="('Owner''s uid:', T40, I19)") buff(5)
WRITE (*, FMT="('Owner''s gid:', T40, I19)") buff(6)
WRITE (*, FMT="('Device where directory is located:', T40, I19)") buff(7)
WRITE (*, FMT="('File size:', T40, I19)") buff(8)
WRITE (*, FMT="('Last access time:', T40, A19)") CTIME(buff(9))
WRITE (*, FMT="('Last modification time', T40, A19)") CTIME(buff(10))
WRITE (*, FMT="('Last file status change time:', T40, A19)") CTIME(buff(11))
WRITE (*, FMT="('Preferred I/O block size:', T40, I19)") buff(12)
WRITE (*, FMT="('Number of blocks allocated:', T40, I19)") buff(13)
WRITE (*, FMT="('Device ID:', T30, I19)") buff(1)
WRITE (*, FMT="('Inode number:', T30, I19)") buff(2)
WRITE (*, FMT="('File mode:', T30, o19)") buff(3)
WRITE (*, FMT="('Number of links:', T30, I19)") buff(4)
WRITE (*, FMT="('Owner''s uid:', T30, I19)") buff(5)
WRITE (*, FMT="('Owner''s gid:', T30, I19)") buff(6)
WRITE (*, FMT="('Device where located:', T30, I19)") buff(7)
WRITE (*, FMT="('File size:', T30, I19)") buff(8)
WRITE (*, FMT="('Last access time:', T30, A19)") CTIME(buff(9))
WRITE (*, FMT="('Last modification time', T30, A19)") CTIME(buff(10))
WRITE (*, FMT="('Last status change time:', T30, A19)") CTIME(buff(11))
WRITE (*, FMT="('Preferred block size:', T30, I19)") buff(12)
WRITE (*, FMT="('No. of blocks allocated:', T30, I19)") buff(13)
END IF
END PROGRAM
@end smallexample