From: Brooks Moses <bmoses@stanford.edu>
Date: Thu, 12 Oct 2006 23:13:30 +0000 (+0000)
Subject: intrinsic.texi (STAT): Shortened lines in sample code.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=25f32574182fbf4e705bf468429901867f4f559f;p=gcc.git

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

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

From-SVN: r117675
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8bb54bcdb62..ea9902f819c 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 45bb547529b..6eb71221d94 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