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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117675 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8bb54bc..ea9902f 100644 (file)
--- 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 (file)
--- 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