X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Fintrinsic.texi;h=4e172fdd7325b1d3a901730e055ab3493e527630;hp=7549c521e7973747b7aa06511a037e3fa5145377;hb=641cacd54d2a519191b820c4fdb38c997eb00935;hpb=7fe61202b3f699fc3c20dca5bbeef624e60fe777

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 7549c521e79..4e172fdd732 100644
--- 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)