diff options
| author | Brooks Moses <bmoses@stanford.edu> | 2006-10-12 23:13:30 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2006-10-12 16:13:30 -0700 |
| commit | 25f32574182fbf4e705bf468429901867f4f559f (patch) | |
| tree | abb498a39a9cb624dcb86eb5ef8ea0d593e9d101 /gcc | |
| parent | 34daf61d5715135637af4b4749a4dde33f03143d (diff) | |
| download | gcc-25f32574182fbf4e705bf468429901867f4f559f.zip gcc-25f32574182fbf4e705bf468429901867f4f559f.tar.gz gcc-25f32574182fbf4e705bf468429901867f4f559f.tar.bz2 | |
intrinsic.texi (STAT): Shortened lines in sample code.
* intrinsic.texi (STAT): Shortened lines in sample code.
From-SVN: r117675
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 30 |
2 files changed, 19 insertions, 15 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8bb54bc..ea9902f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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, diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 45bb547..6eb7122 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -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 |