intrinsic.texi (STAT): Fixed a format typo in sample code.

* intrinsic.texi (STAT): Fixed a format typo in sample code.

From-SVN: r117676

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ea9902f819c5a5a0c4d493eac5c353cb4fe8ce00..6f1006d2d0740d5ace181a1f1589b81bc2b57373 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): Fixed a format typo in sample code.
+
 2006-10-12  Brooks Moses  <bmoses@stanford.edu>
 
        * intrinsic.texi (STAT): Shortened lines in sample code.

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 6eb71221d94a27f15aba8ac4523418917636d585..7549c521e7973747b7aa06511a037e3fa5145377 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, o19)") buff(3)
+    WRITE (*, FMT="('File mode:',               T30, I19)") 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)