* intrinsic.texi (STAT): Reverted a format in example code to

octal; noted this in accompanying string.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2708abb..be6867c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-13  Brooks Moses  <bmoses@stanford.edu>
+
+       * intrinsic.texi (STAT): Reverted a format in example code to
+       octal; noted this in accompanying string.
+
 2006-10-13 Paul Thomas <pault@gcc.gnu.org>
 
        PR fortran/29373

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 7549c52..4e172fd 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -7642,7 +7642,7 @@ PROGRAM test_stat
   IF (status == 0) THEN
     WRITE (*, FMT="('Device ID:',               T30, I19)") buff(1)
     WRITE (*, FMT="('Inode number:',            T30, I19)") buff(2)
-    WRITE (*, FMT="('File mode:',               T30, I19)") buff(3)
+    WRITE (*, FMT="('File mode (octal):',       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)